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E DEIXE O COMPUTADOR CP 400 C 

FAZER RESTO. 



•JMJSfT 



Agora sua unica duvida vai ser qual programa usar. Porque o CP 
Color litem inumeros programas em fitas, cartuchos e disquetes para reso 
ver tudo por voce, em casa, nos estudos e no trabalho. E tecfado prof issiona 
que possibilita maior agilidade e facilidade de operagao. 

Conheca e teste o CP 400 Color II. Qualidade CP. T ecnologia Prologica. 

Caracteristicas Tecnicas: • Teclado profissional • Porta de comunicacao 



Pressora serial • Memoria total 64K • Saidas para monitor e TV em cores • 
ermite 2 joysticks simultaneos e analogicos. 
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ais urn ano se inicia. Um ano que esperamos cheio de paz, 
conquistas, desenvoivimento. Neste numero, Geraqao Prologica da 
atengao especial aos jovens, as suas opinioes, as suas necessidades 
e a sua expectativa quanto ao futuro e as possibilidades que a 
informatica apresenta. 

No entanto, nao basta somente ouvir e publicar as opinioes dos 
jovens; mais do que isso, e necessario apresentar sugestoes para 
uma eficiente definigao da politica educacional para a area de 
informatica — dada a sua irreversibilidade. 
Discutir a introdugao de microcomputadores nas escolas como 
ferramenta de aprendizagem pode parecer estafante — mas este 
debate se torna necessario para desencadear um outro processo 
muito mais importante: a formagao de um corpo docente 
comprometido com a nova estrutura social e o proprio 
desenvoivimento de tecnologias nacionais. 
Como a democratizagao das informagoes e nosso objetivo, 
publicamos tambem neste numero varias dicas de software e 
hardware para que voce explore todas as possibilidades de seu 
computador. 
Feliz 1986! 



Carlos Roberto A. Gauch 
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Os jovens e a informatica, uma 
relagaoirrcversivelnaestrutu- 
racaode uma nova base social- 
Na reportagem de capa desu 
nume ! ro, GeragSo Proldg,ca 
divulgaocpieesiasendofuo 

na area educacional e a opmiao 
dosjovenssobreestanovafer- 

ramenta para o dcsenvolu- 
mento cientif.co e social. 
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Assistcncia Tecnica Prologica 
— eficiencia em trinta minutos ..16 
CP 200, um professor em alta 
resolucao 17 
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No Encartc Especial, a relacao de todos 
os programas publicados em 1985 e os 
scguintes softwares: Labirinto, para o 
CP 400 Color; Agenda Telefonica, pa- 
ra o CP 300 e CP 500 e um programa 
em alta resolucao para o CP 200. 
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Feliz Ano-Novo I 
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Durante todo o ano que passou, vo- 
ces me ajudaram coin iuformacocs 
preciosas sobre software, hardware e 
especificamenle sobre mcu CP 500. 
Como a vida urbana e muito corrida, 
eu nao live nem tempo para agradecer. 
Mas fim de ano e epoca de festa, e 
quando (por algum motivo especial) se 
pensa nas pessoas que a Rente gosta. 
E eu gosto da Geracao Prologica. 
Agradeco, entao, a sua editora, Mar- 
ta Regina de Souza, e desejo que 1986 
seja milhoes de vezes melbor que ano 
que passou. 
George A. P. Swizi — Sao Paulo — SP 



Feliz Ano-Novo II 

Feliz Ano-Novo para lodo mundo da 
Geraqao Prolog ica. 

Cristina M. Carneiro liastos 

COMSIP Engenharia S/A — 

Sfio Paulo — SP 
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Teclado do CP 400 Color 

Dentre lodas as revistas ale entao re- 
cebidas, esta foi a melbor, puis atingiu 
em cbeio as nossas necessidades, a dos 

usuarios do CP 400 Color. Parabens a 
loda equipe pelas cxcclentes publieacoes 
contidas na revista. Urn dos metis maio- 
res problemas com o CP 400 e coin o 
teclado. Mas voces tiveram a "santa 
idcia" de lazer urn teclado UpO prol'is- 
sional. Acbei simplesmente lira barato!!! 
Era cxatamentc dislo que esliivamos 
precisando. 

Bom, depois desle bale-papo, aqui 
vao algumas diividas: e possivel trocar 
men CP 400 normal por outro com te- 



clado professional? Onde posso conse- 
guir programas para a area conlahil 
compativcis com o CP 400? 

Francisco S. da Silva — 
Teresina — PI 

Caro Francisco, para trocar o tecla- 
do de scu computador pessoal, procu- 
re a Assistencia Tccnica Autorizada 
Prologica mais proxima. Qualquer 
problema, ligue dirctamente para a CP 
Computadores Pessoais, em Sao Pau- 
lo, telefone: (011) 247-6934. 

Quanto aos programas solicitados, 
sugerimos que voce entre em contato 
com as seguintes software-houses: 
Computer Mouse — Avenida Andra- 
de Neves, o? 1254 — Campinas — Sao 
Paulo — telefone: (0192) 8-0822. 
Medical Color Soft — Rua Cicero 
Goes Monteiro, n" 15 — Rio de Janei- 
ro — RJ — telefone: (021)266-5995: 
Peek & Poke — Avenida Brigadeiro 
Faria Lima, n° 1664 — conjumo 1 101 
— Sao Paulo — SP — telefone: (01 1) 
813-3277. 

Quando ao programa enviado, va- 
mos publica-lo nos proximos numeros. 
Aguarde. 



Editor de Texto para CP 500 

Amigos da Geraqao Prologica, 
quando ganhei meu primeiro compu- 
tador achava que o grande barato 
eram os jogos c acabei por Iransformar 
meu equipamento mini simples video- 
game. Hojc, com mil cquipamenlo 
mais potente (CP 500) e depois do pa- 
po que live por lelefonc com a Marta 
(editora da revista), resolvi realmente 
aprender informatica e fazer de meu 
computador uma ferramenla liiil pa- 
ra meu desenvolvimenlo. Esta licao eu 
aprendi com a revista, por isso o bla- 
bla-bla acima. Obrigado a voces todos, 
principalmente a editora, por sua gen- 
tileza e paciencia (pelo menos por te- 
lefone). Mas tenho duas duvidas: o que 
e inn processador de palavras ou tex- 
to' e uma planilba elelronica? 
Lttiz Fernando de Almeida Tripoli — 
Ribeirao Prelo — Sao Paulo 

Caro Fernando, fico contente que 
voce tenha assimilado as indicacoes 
feitas por telefone. Quanto as suas dii- 
vidas ai vao as explicates. Basicamcn- 
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IHAM — Instituto Brasilciro dc Ad- 
ministracao Municipal — Cursos de 
programacao, linguagem e analise 
de sistema. Mais informacoes: Lar- 
go IBAM, n? 01 — CEP 22282 — 
Rio dc Janeiro — RJ — telefone: 
(021) 266-6622. 

Scrvimec — Cursos de computacao 
para inicianies e tecnicos. Mais in- 
formacoes: Rua Corrca dos Santos, 
n? 34, CEP 01 123 — Sao Paulo — 
SP — telefone: (011)222-1511; ou 
Rua da Alfandega, n? 91, 3? andar 

— CEP 20070 — Rio de Janeiro — 
RJ — telefone: (021) 221-6067. 

Scnac Informatica — Cursos c sc- 
minarios para inicianies em infor- 
matica ou cursos de especializacao. 
Mais informacoes: Rua Dr. Vila 
Nova, 228, 5? andar — CEP 01222 

— Sao Paulo — SP — telefone: 
(Oil) 256-5522. 

V & M Consultoria de Sistcmas — 
Cursos de introducao a informati- 
ca, Basic e programacao. Mais in- 



formacoes: Rua Barao de Bocaina, 
1 18 — CEP 01241 — Sao Paulo — 
SP — telefones: (011) 825-2708 e 
826-8744. 

Alius Sistemas de Infonmitica — 

Varios cursos para iniciantcs e tec- 
nicos. Mais informacoes: Rua Este- 
la, n? 515, conjunto 132, Bloco C 

— CEP 0401 1 — Sao Paulo — SP 

— telefone: (01 1) 575-0103; ou Rua 
Senador Dantas, n? 75, sala 21 15 — 
CEP 20031 — Rio de Janeiro — RJ 

— telefone: (021) 262-7928. 

SPCI — Sao Paulo Computer Ins- 
titute — Cursos e seminarios avan- 
cados em programacao, linguagens 
e funcoes da informatica. Mais in- 
formacoes: Avenida Reboucas, n? 
1669 — CEP 05401 — Sao Paulo — 
SP — telefone: (011) 883-0355. 

CBI — Centro Brasilciro dc Infor- 
matica — Informacoes sobre os va- 
rios cursos: Rua Teofilo Otoni, n? 
123 — CEP 20090 — Rio dc Janei- 
ro — RJ — telefone: (021) 
233-1123. 

Intertec Servicos — Cursos dc intro- 
ducao a informatica, programacao 



e linguagens. Mais informacoes: 
Rua Bela Cintra, n? 986, 5? andar 

— CEP 01415 — Sao Paulo — SP 

— telefone: (Oil) 259-2055; ou 
Praia dc Botafogo, n? 518, 10? an- 
dar — CEP 22250 — Rio de Janei- 
ro — RJ. 

SCI — Sistcmas, Computacao e In- 
formatica — Avenida Paulista, 949, 
11? andar — CEP 01311 — Sao 
Paulo — SP — telefone: (011) 
289-0099. 



EVENTOS 



I FENASI 86 — Feira Nacional de 
Acessorios, Suprimcnlos e Instala- 
coes para Informatica — Palaciodas 
Convencoes do Anhembi, de 24 a 27 
de abril. Nesse evento, empresas de 
pequeno, medio e grandc pone da 
area de acessorios e suprimentos pa- 
ra informatica apresentarao produ- 
tos e servicos para a informatica. 
Paralelamcntc a Feira, acontecera o 
I ENFASI — Encontro Nacional 
dos Fabricantes c Fornecedores de 
Acess6rios, Suprimentos c Instala- 
coes para a Informatica. 



tc, um Processador de Texto ou Edi- 
tor dc Tcxto diferencia-se de um siste- 
ma tradicional, pois nao trabalha com 
registros e sim com textos que sao gra- 
vados (em disco ou fita) c podem scr 
manuseados de varias formas, facili- 
lanclo a montagem de cartas, rclalo- 
rios, artigos etc. Entre as opcracocs 
mais comuns que se podem fazcr com 
um processador de texto, destacam-se 
as seguintes: projecao na tela para pos- 
sivel corrccao de erros, adicao ou eli- 
minacao de palavras, paragrafos c blo- 
cos intciros, inclusao de textos prcvia- 
mente armazenados, numeracao auto- 
matica de paginas e impressao dc pa- 
ginas sclecionadas, formatacao, dia- 
gramacao, alem de outras opcracocs. 
Ja as planilhas eletronicas podem ser 
utilizadas de uma forma simples c 
completa ate por pessoas sem experien- 
cia cm proccssamento de dados. O sis- 
tema parte de uma matriz constituida 
de linhas e colunas. A intcrseccao de 
cada uma delas representa uma eclu- 
la. O usuario tern acesso a cada uma 



dessas celulas atraves de sua identifi- 
cacao ou levando o cursor ate ela. 

O usuario, ao trabalhar com uma 
planilha, pode colocar em cada celula 
um tcxto, um valor qualquer ou uma 
formula, para posterior manipulacao. 
Uma aplicacao tipica da planilha cle- 
tronica e a preparacao dc orvamentos. 




Programas para o CP 200 

Senhores, quero agradecer a alencao 
ili-in revista para comigo, pois todas 
as min has cartas foram respondidas 



com presteza e cficiencia. Por ser esta 
revista especializada nos microcompu- 
tadores da linha CP, sua atuacao e dc 
primordial importancia para OS usua- 
rios desta linha de micros, fato que me 
leva a escrever novamenle. 

Gostaria de saber se hi al^uma en- 
tidade que ministre cursos de progra- 
macao especifica para o CP 200S e se 
existe na area de Fducacao Fisica pro- 
gramas com tabelas de condiciona- 
mento fisico e medidas anlropometri- 
cas. Ciente do pronto atendimento, 
desde ja agradeco. 
Jorge August o Rega — Sao Ihttilo — SP 

Caro Jorge, o CP 200, por sua facil 
operacao, nao prccisa de cursos espe- 
cifieos. Voce pode simplesmcnte cur- 
sar programacao cm Basic para mclho- 
rar seus conhccimcntos ncsta lingua- 
gem. Infelizmcnte, informamos que, 
apesar de termos pesquisado em varias 
software-houses, nao enconiramos ne- 
nhum programa compativel com suas 
necessidades. 
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A eficiente relagao custo/beneficio dos microcomputadores da linha 

CP e as suas vantagens como ferramenta de trabalho, domestica ou 

de la zer propiciaram o desenvolvimento do mercado de hardware-houses' 

~— empresas que fabricam acessorios que aumentam as ~ 

possibilidades e eficienci a de seu equipamento. Neste numero, 

Geragao Prologica publica uma relagao de hardware-houses, 

descrigao de seus produtos, utilizagao e comercializagao. 
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Interface para ET 121: permite ligar uma maquina de es- 
crever ET 121 (Olivetti) a urn CP 400 on CP 500. Dispo- 
nivel em dois modelos: paralela (padrao Centronics) e serial 
(padrao RS 232C). Preco: 60 ORTNs. Garantia: 1 ano. 
Comercializacao: propria e revendas. Instalacao: interfa- 
ce paralela ou serial. 

Interface para Facit 8000: permite ligar uma maquina de 
escrevcr Facit 8000 a urn CP 400 ou CP 500. Disponivel 
em dois modelos: paralela (padrao Centronics) e serial (pa- 
drao RS 232C). Preco: 60 ORTNs. Garantia: 1 ano. Co- 
mercializacao: propria. Instalacao: interface paralela ou 
serial. 

Interface para Praxis 20: permite ligar uma maquina de 
escrever Praxis 20 (Olivetti) a urn CP 400 ou CP 500. Dis- 
ponivel em dois modelos: paralela (padrao Centronics) e 
serial (padrao RS 232C). Garantia: 1 ano. Comercializa- 
cao: propria. Instalacao: interface paralela ou serial. 

Mais informacoes sobre produtos da Daisy Wheel pelo te- 
lefone: (011) 530-1040. 



Placa de CP/M: permite a utilizacao do Sistema Opera- 
cional CP/M no CP 500, com 64 colunas e 64 K de RAM. 
Preco: * 24 ORTNs. Garantia: 3 meses. Comercializacao: 
revendas. Instalacao: interna. 

Placa de 80 colunas: juntamcnte com a Placa de CP/M, 
permite a visualizacao de 80 colunas no CP 500 (antigo). 
Preco: * 30 ORTNs. Garantia: 3 meses. Comercializacao: 
revendas. Instalacao: interna. 

Placa de 4 MHz/64 K: permite ao CP 500 M80 operar o 
Sistema Operacional CP/M com o dobro da velocidade 
normal, alem de deixar mais de 64 K de RAM disponiveis 
para utilizacocs como RAM DISK. Preco: * 28 ORTNs. Ga- 
rantia: 3 meses. Comercializacao: revendas. Instalacao: 
interna. 

Data Buffer-64 K: ligado cnirc a saida paralela (Centro- 
nics) do microcomputador c a impressora, armazena os 
dados que dcvcrao ser impressos, liberando o microcom- 
putador. A capacidade de memoria e opcional, com um 
minimo de 64 K. Utilizacao: CP 500. Preco: 50 ORTNs. 
Garantia: 3 meses. Comercializacao: revendas. Instalacao: 
saida paralela. 

RAM DISK-256 K: Simula um disco em memoria RAM, 
diminuindo sensivelmente o tempo de acesso aos dados. 
A capacidade de memoria minima e de 256 K, podendo 
ser expandida ate 2 Mbytes. Utilizacao: CP 500. Preco: 60 
ORTNs. Garantia: 3 meses. Comercializacao: revendas. 
Instalacao: expansao. 

Obs.: * (precos passiveis de alteracao). 

Mais informacoes sobre produtos da Mierosol pelo lele- 
fone: (085) 227-5878. 
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Alia Resolucao: instalada no interior do CP 500, permile 
a manipulacao dc 49 152 pontos (256 x 192) na tela do 
microeomputador. Acompanha urn Basic Grafico, com co- 
mandos que simplificam a manipulacao dos pontos na te- 
la. Preco: 55 ORTNs. Garantia: 6 meses. Comercializacao: 
propria c revendas. Instalacao: interna. 

Freeway-Data Buffer-64 K: ar- 

mazena os dados que sao cnvia- 
dos a impressora, liberando o 
computador. Memoria minima 
Fde 64 K , com capacidade de ex- 
pansao. Disponivel em dois 
modelos: com ligacao a saida 
paralela e/ou saida serial do 
microeomputador e com ligacao a saida paralela do mi- 
croeomputador. Utilizacao: CP 400 e CP 500. Preco: 109 
ORTNs. Garantia: 6 mescs. Comercializacao: propria c re- 
vendas. Instalacao: interlace paralela e serial. 

300 IP: interface paralela que permite a ligacao do CP 300 
a uma impressora padrao Centronics. Preco: 5 ORTNs. 
Garantia: 6 meses. Comercializacao: propria e revendas. 
Instalacao: expansao. 

Conlrolador Projjramavel: atraves de cartoes individuals, 
pode compor diversas configuracoes diferentes. Permite 
controlar, atraves de entradas e saidas digitals ou analo- 
gicas, os mais diversos tipos de equipamentos c/ou instru- 
mentos de controle. Utilizacao: CP 500. Garantia: 6 meses. 
Comercializacao: propria e revendas. Instalacao: interfa- 
ce serial. 

PSI MC: microcontrolador composto de duas saidas dc 
potencia e tres entradas digitais, que permite o controle 
dc equipamentos atraves do CP 300. Preco: 10 ORTNs. 
Garantia: 6 meses. Comercializacao: propria e revendas. 
Instalacao: expansao. 

Mais informacocs sobre produtos da PSI pclos (clefones: 
(011) 533-0120 e 533-0112. 
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Interface para Telex TLX-500: transforma o CP 500 em 
urn terminal da rede telex. Preco: 100 ORTNs. Garantia: 
6 meses. Comercializacao: revendas. Instalacao: interfa- 
ce serial. 

Mais informacocs sobre produtos da Data-Comereio pelo 
telefonc: (027) 222-3899. 
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Interface RSTY-01: conjunto que transforma os sinais 
RTTY que chegam atraves de um equipamento de radio- 
comunicacao em sinais legivcis para o microeomputador, 
podendo ser apresentados na tela ou armazenados cm fi- 
ta. Os sinais oriundos do micro sao convertidos em sinais 
padrao RTTY c transmitidos pelo equipamento de radio- 
comunicacao. Todo o controle e realizado por um soft- 
ware especifico, o RTTY -01 . Preco: 26 ORTNs. Garantia: 
permanente. Comercializacao: propria. Utilizacao: CP 
200. Instalacao: collector dc expansao. 

Interface RS 1050-A: conjunto que transforma os sinais 
de telegrafia em sinais legivcis pelo microeomputador, po- 
dendo ser apresentados na tela ou armazenados em fita. 
Os sinais oriundos do micro sao convertidos em sinais te- 
legraficos e enviados ao equipamento, que fara a radio- 
transmissao. Um software especifico (RS 1050-A) faz o 
controle da recepcao/transmissao. Preco: 10 ORTNs. Ga- 
rantia: permanente. Comercializacao: propria. Utilizacao: 
CP 200. Instalacao: concctor de expansao. 



DEIXE O SEU CP500 

FALAR MAIS. 

NEW BASIC 

40 novas instrucoes 



Enrtquoca o vocabuiano OASIC <3o seu 
THS (CP500 e compativo<s). com 40 novas 
instnjebos dedicadas a parte grafica. que 
darao ao BASIC do seu equipamento uma 
nova dimeniio. 
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PRECO 12 ORTNS 



SE VOCE TEM UM CP500 E/0U UMA P500 NA0 PODE 

DEIXAR DE TER ESTE SOFTWARE 

Para os possuidores de uma impressora 
PSOO. este soffwarp permite evplora* a sua 
capacidade gradci impiementando uma 
(••la log-ca de alia resolucao reconiigura- 
vol em ate 360 ■ 360 pontos. 

GRAFICOS GERADOS PELO NEWBASIC 
NA IMPRESSORA PSOO 




DistribuicaodeComputadores 
e Servicos Ltda. 

Rua W*u» 1»C*U- P*rqu« Cvi Aguur 

Ro V*r rr**n - CEP *O00O - 

TEl Of :*S-'2W Sa'.Mo* OA 



Oesejo recober o software NEWBASIC 

assinatado no anuncio. 

]Mcdianto envio de cheque nominal a DISCON 
DIST. DE COMP E SERV. LIDA 
(o porte a por nossa conta e sua encomenda 
chega mats raptdo) 
Cheque Banco 

:Mediante pagamonto contra feceD.mento 
do software pelo toemool so postal, 
acrescido do despesas postms 



Nome: ... 
Endereco 
Odade 



CEP UF 
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O mundo se prepara para a virada de 
seculo. E nunca foi tao verdade a anti- 
ga frase: o futuro esta nas maos dos jo- 
vens de hojc, pois a necessidade de mu- 
dancas estruturais esta a flor da pele de 
toda a sociedade. E sao eles — os jovens 
— que terao o poder amanha. poder 
de realizar uma obra mais justa, mais 
coerente com a dignidade humana. Ou 
nao. Qualqueropcao estara diretamen- 
te ligada a carga de informacao e socia- 
bilizacao recebida hoje — este tumul- 
tuado p6s-II Grande Guerra, pos- 
Woodstock, pds-Maio/68, pos-ditadu- 
ras, pos-rebelioes, pos-new-wave, pos- 
quase-tudo. 

E quais sao as armas culturais e cien- 
tificas que legaremos a esses jovens? 

A informatica tem dcmonstrado em 
toda a atividade humana sua importan- 
cia na nova estrutura?ao social , econo- 
mica e polftica e na formacao de uma 
nova cultura baseada na informatiza- 
cao — uma poderosa arma de conheci- 
mentos, com possibilidades infinitas. 
Partindo do principio de que a informa- 
tizacao da sociedade i irrevcrsivel, ca- 
be as escolas, pais, meios de comunica- 
gao e governo, o papel de preparar o ho- 
mem da melhor maneira possfvel para 
o mundo futuro. 
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E quando se pensa no ensino com- 
putadorizado, pensa-se logo no bem- 
sucedido exemplo frances. E nao e pa- 
ra menos: implant ado gradualmente, de 
forma a permitir a adaptacao dos pro- 
fessores e a conscientizacao da socieda- 
de sobre sua importancia, o projeto s6 
agora (quinze anos depois) chega a in- 
troducao macicade computadores pes- 
soais em salas de aula. Hoje, as 55 mil 
escolas publicas f rancesas e seus 12 mi- 
Ihoesdealunosestaooperando 160 mil 
micros. 

Mas se a Franca esta investindo no 
futuro, como andam nossos projetos de 
informatica na area educacional e quais 
as expectativas do jovens brasileiros? 




L6gica e criatividade, 
as expectativas para um 
mundo melhor 



Para saber a opiniao e as expectati- 
vas das criancas e dos jovens brasilei- 
ros quanto a informatica, Geracao Pro- 
I6gica foi as ruas pesquisar entre os es- 
tudantes de varias escolas, classes so- 
ciais e faixa etaria, alem de realizar um 
pequeno debate com os alunos da SOS- 
Computadores, uma conceituada esco- 
la de computacao de Sao Paulo. 

A pesquisa foi realizada com um uni- 
verse de 50 jovens, com idades varia- 
veis de 13 a 21 anos, com acesso a mi- 
crocomputadores — quer seja em casa, 
escola ou clubes de computacao, per- 
tencentes em sua maioria a ciassc m£- 
dia, 20% a classe alta e 10% as classes 
de baixo poder aquisitivo. 

Entre respostas como "uma maqui- 
na fantastica* ' , ' ' jogos de guerra * ' etc. , 
o mais importante & que 80% dos jovens 
entrevistados tinham consciencia do pa- 
pel e da influencia da informatica na so- 
ciedade, nao s6do futuro, mas de hoje. 

Helena Tripoli, 16 anos, estudante 
do Objetivo, tern acesso a microcompu- 



tadores em sua escola e na casa de um 
amigo. Para ela, e fascinante imaginar 
que o mesmo principio de computacao 
podecontrolar semaforos, administrar 
grandes empresas, realizar diagndsticos 
eficient es na area de medicina e contro- 
lar ogivas nucleares. "O homem tern 
um poder fantastico nas maos. Depen- 
de dele como utiliza-lo", enfatiza He- 
lena. "Se eu estudo hoje, & para poder 
ter acesso as informa?6es e ter argumen- 
ts para um dia influenciar no meu 
meio", finaliza. 

Jorge Luiz Andrade, 1 9 anos, apren- 
de programacao sozinho. Ganhou um 
CP 300 ha dois anos e hoje faz seus pro- 
prios jogos, alim de programas para aju- 
da-lo na escola. Para ele, o computador 
e importantissimo para o aprendizado 
e o desenvolvimento da ldgica e criati- 
vidade. "Noentanto" — afirma Jorge 
— "6 muito dificil no Brasil o acesso i 
informatica. S6 quern tern dinheiro po- 
de desenvolver seu potencial". 

No debate realizado na escola SOS- 
Computadores, os adolescentes de- 
monstraram nao so vontade no apren- 
dizado, mas a consciencia da ferramen- 
ta a que eles est3o tendo acesso. Para 
Luiz Carlos Izzo, diretor do curso, este 
comportamento demonstra uma nova 
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postura cultural com relacao a informd- 
tica, apesar da barreira de precos dos 
computadores no mercado nacional. 

Participaram do debate os seguintes 
estudantes da SOS-Computadores: An- 
drelaM. Briza, 19anos;ThiagoChaim, 
IS anos; Arnaldo Agostinho Queiroz, 
23 anos; Ricardo Gomes Alfarelos, 16 
anos; Sonia Fittipaldi, 26 anos; Odele 
de Souza, 36 anos; Omar Chamon (pro' 
fessor), 20 anos; Leonardo T. Masse- 
to, 14 anos; Leandro P. Almeida, 12 
anos; Joao C. Balvocius, 13 anos, e Ro- 
drigo A. Carneiro, 14 anos. 

A seguir, alguns depoimentos sobre 
as expect at ivas dos jovens em relacao 
a informdtica: 

Audreia: Comecei a estudar infor- 
matica levada um pouco pelo modismo, 
mas depois descobri o quanto ela pode 
ser util na minha vida. 

Sonia: A informatica transforma a 
gente em pessoas mais 16gicas, coeren- 
tes. A diflculdade nao 6 aprender uma 
nova linguagem, mas sim sermos mais 
logicos. Com a informatica, tenho cer- 
teza agora de conquistar o meu espaco 
no mundo. 

Ricardo: A informatica influencia 
todas as atividades do mundo. Antes de 
estudar informatica, eu achava que to- 
do cara que mexia com computador era 
um bitolado. Mas depois percebi que a 
informatica desenvolve nossa criativi- 
dade, d3 condicoes de a gente ir alem 
do previsto. 

Odele: Nao sao s6 os adolescentes 
que tSm direito a esta nova opcao cul- 
tural. Depois de estar formada profis- 
sionalmente e com 36 anos, descobri 
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que a informatica atende as minhas ne- 
cessidades criativas e I6gicas, pois infor- 
matica significa, principalmente, desen- 
volvimento. Ela estd presence em tudo, 
influenciando toda a sociedade, e eu 
quero participardessa novaconquista. 
Na verdade, acho que estou apaixona- 
da pela informatica. 

Sonia: O que me apaixona na infor- 
matica 6 a propria manipulacao das in- 

formacoes. 

Arnaldo: Eu procurei na informati- 
ca uma forma de auto-realizacao, uma 

forma de me enquadrar na sociedade 
profissionalmente, a partir do desenvol- 
vimento da logica. 




Andrea: Eu tamb6m estou procu- 
rando o meu caminho. Acho que a in- 
formatica pode ser util em qualquer coi- 
sa que eu fizer. 

Thiago: Oceanografia e geologiasao 
as minhas paixoes. E a computa?3o po- 
de me ajudar. Mas principalmente vai 
me ajudar na drea rural, pois meu pai 
tern um sftio e a informatica na & rea ru- 
ral e muito importante. 

Rodrigo: Eu utilizo computador na 
escola c aqui aprendo a programar. Pa- 
ra mim isto vai ser muito importante 
porque vou ser oficial da Marinha, e tu- 
do o que eu digo e faco sio coisas mui- 
to senas. 

Leonardo: Quero ser engenheiro me- 
canico ou quimico, e a informdtica vai 
ser importante na minha profissao. 
Alias, jd e importante em toda a socie- 
dade, desde as dreas sociais ate" nas 
guerras. 

Joao: Tambem quero ser engenhei- 
ro mecanico e estudo informatica por- 
que ela & uma ferramenta muito po- 
derosa. 

Leandro: Vou ser engenheiro naval 
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e faco curso para ajudar meu pai com 
programas dc folha de pagamento, ca- 
dastre- e controles administrative*. 

Leonardo, Joao, Leandro e Rodri- 
go (os mais novos do grupo, na faixa de 
12 a 14 anos) finalizaram o debate, afir- 
mando: "No futuro, tudo vai ser con- 
trolado pelos computadores. A infor- 
matica vai facilitar a vida de uma socie- 
dade, mas para que esta sociedade seja 
melhor, mais justa, isto vai depender 
dos governantes e n5o da informal ica' ' . 

Rede estadual e a 
politics de informatica 

A Secretaria Estadual de Educacao 
decidiu que 1986 sera o ano de informa- 
tizacao na rede estadual de ensino. Es- 
ta politica tera" inicio em duas escolas es- 
taduais de 2? grau de Sao Paulo, onde 
4 mil criancas terao acesso a microcom- 
putadores em salas de aula, ecom a ofi- 
cializacilo de urn Laboratdrio de Infor- 
matica Educacional. 

Pela primeira vez no Brasil, um 6r- 
g So de peso como uma Secretaria de Es- 
tado, que coordena mais de 17 mil es- 
colas e aproximadamente cinco milhoes 
de alunos, enfrenta o desafio de tracar 
uma politica oficial para a introducao 
e desenvolvimento da informatica na 
Educac3o. 

Segundo o secretario Paulo Renato 
Costa de Souza, "a Secretaria precisa 
ter uma politica de informatica para a 
educacao para a efetiva implantacao da 
computacao na drea educacional". 
Quern gerenciara este processo de im- 
plantacao ser£ o Laboratdrio de Infor- 
matica Educacional, da Fundacao pa- 
ra o Livro Escolar, e sua primeira tare- 
fa esta voltada para a capacitacao dos 
prpfessores. 

"Queremos formar dois tipos de 
professores, como aconteceu na Fran- 
ca: um para desenvolver programas, 
com conhecimentos mais sofisticados, 
e outro que simplesmente usara micros 
como uma ferramenta auxiliar em sa- 
las de aula", afirma Maria Herminia 
Tavares de Almeida, coordenadora da 
implantacao da politica de informati- 
ca na rede estadual. 

No entanto, apesar das intencoes, o 
projeto da Secretaria de Educacao foi 
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duramentecriticado por Joao Carlos Di 
Genio, diretor-presidente do Centro 
Educacional Objetivo — a rede educa- 
cional mais informatizada do Pais: "O 
projeto 6 muito timido, limitado. A Se- 
cretaria deveria usar unidades moveis, 
com micros em peruas ou caminhdes, 
percorrendo todo o Estado, a exemplo 
do que acontece em Israel". 

Ja as pesquisadoras da Unicamp, 
Maria Cecilia Baranauskas e Heloisa 
Rocha Correa Silva, coordenadoras do 
projeto Educom na universidade, em- 
bora considerem sauddvel a decisao da 
Secretaria, acreditam que o projeto pe- 
ca pela falta de objetividade e pela cen- 
tralizacao de decisoes. Como defesa, o 
secretario Paulo Renato afirma sim- 
plesmente que "o projeto e realista". 



A base do Educom: nao 
existem donos da verdade 

Considerado como um dos primei- 
ros trabalhos realizadosemcomunhao 
com a populacao, o projeto Educom en- 
volve ha quase um ano, quatro univer- 
sidades federals (do Rio Grande do Sul, 
Pernambuco, Rio de Janeiro e Minas 
Gerais) e uma estadual, a Unicamp, em 
Sao Paulo. Cada universidade tern seu 
proprio projeto, mas obedece a linha 
mestra do Educom: formacao de pro- 
fessores, preparacao de material peda- 
gdgico e manuseio do computador pe- 
lo aluno. 

Na Unicamp, por exemplo, durante 
dois anos as professoras Maria Cecilia 
Baranauskas e Heloisa Rocha, do Ins- 
tituto de Matematica e Estatisticas, fi- 
zeram uma traducao da linguagem Lo- 
go a partir de sugestoes das proprias 
criancas. Agora, essa linguagem esta 





sendo aplicada em tres escolas publicas 
da regiao: uma de Americana, outra de 
Souzas e a terceira em Campinas. 

Essas experiencias e implantacoes do 
projeto Educom deverao servir de base 
para a Secretaria de Educacao de Sao 
Paulo, que tera que levar em conside- 
racao que o computador nao so auxilia 
no processo de aprendizagem como im- 
plica numa mudanca da pr6pria meto- 
dologia de ensino, pois a informdtica le- 
va a um repensar constante ebs profes- 
sores terao que deixar de lado a posicao 
de donos da verdade para se colocar ao 
lado dos alunos simplesmente como 
pessoas mais experientes. 



Nas redes particulares 
problemas e conquistas 

Apesar da falta de recursos humanos 
ede software, as instituicoes particula- 
res de ensino foram a luta e ja conquis- 
taram varios pontos na informatizacao 
educacional: O Colegio Santo Ameri- 
co, em Sao Paulo, implantou um Cen- 
tro de Informdtica e aescola Liceu Pas- 
teur, tamb£m em Sao Paulo, implantou 
seu projeto hi tres anos, primeiro para 
o corpo docente, estendendo hoje para 
os alunos. 

No Objetivo, todos os 80 mil alunos 
de 1? e 2? graus e pre-vestibular espa- 
lhados por todo o pais passam, no mi- 
nimo, duas horas semanais em frente a 
um micro. Alem disso, a escola serve- 
se tambem da telemdtica, onde os alu- 
nos que possuem computadores pes- 
soais podem ter acesso as aulas atraves 
do Videotexto. 

Nos coldgios Pentdgono e Santa 
Cruz, a informatizacao tambem cami- 
nha a passos largos na formacao de pro- 
fessores e alunos e no desenvolvimento 
de programas especificos para a 
educacao. 



SOFTWARE HOUSES 

PROGRAMAS DISPONl'VEIS NO MERCADO 



Encontrar o programa adequado as necessidades opresentadas pode ser urn problema — mas 
nao para os computadores pessoais com tecnologia Prologica, que tern uma das maiores 
bibliotecas disponfveis no mercado. Neste niimero, Geraqao Prologica publico a descricao 
de dois programas: urn processador de texto para o CP 500 e urn progfama de Comunicacoes 
para o CP 400 Color. 




ie seu Clube 



de Comunicacpao com 
o programa CP-Terminal 

O CP-Terminal e o mais sofisiicado e poderoso progra- 
ma de comunicacao para computadores do porte do 
CP 400. Ele permite o acesso do microcompuiador a qual- 
quer rede de computadores que trabalhe com vclocidade 
dc transmissao/rcccpcao cntrc 1 10 e 9 600 bauds. 

Com este programa, por exemplo, voce podera acessar 
a rede Cirandao, que congrega milhares de usuarios dc 
computadores de todos os tipos, trocando dicas, progra- 
mas, informacoes gerais ou participando de telcconfercn- 
cias. Outra rede que pode ser accssada atraves do 
CP-Terminal c o CBBS do Amin, que e uma rede de com- 
putadores exclusiva para os usuarios do CP 400 e similares. 

O CP-Tcrminal permite ainda a ligacao ponto a ponto 
de computadores, por linha telefonica, para a troca de pro- 
gramas ou arquivos em geral. Alcm disso, possui todas as 
facilidadcs dos mais sofisticados terminais de comunica- 
cao, tais como: "Word Wrap", utilitario que nao "cor- 
ta" palavras; ajuste dc parametros da RS 232C para 
comunicacao com computadores que nao usam padrao 
Standard; envio e rcccpcao de programas cm Basic, As- 
sembly e Textos ASCII; dez teclas com mensagens progra- 
mavcis (para economia de tempo) e variosoutros itens para 
facilitar sua comunicacao. 

Para o CP 400, o CP-Terminal possui algumas carac- 
teristicas cxclusivas: quatro densidadcs de tela, rceep- 
cao/transmissao de arquivos ASCII e modo grafico para 
o rcccbimcnto de desenhos. Com este programa, voce po- 
de ate criar urn Clube de Comunicacao, para troca de in- 
formacoes e programas. 

O CP-Terminal funciona tamo em equipamentos com 
disco quanto cm fita e necessita apcnas de urn modem e 
uma linha telefonica comum para funcionar. 

Este programa pode ser encontrado na Planecom In- 
formatica, Avenida Ajjua Fria, n? 925, telefone: (011) 
204-2777 — Sao Paulo — SP, ou na Medical Color Sofl, 
Rua Cicero Goes Monteiro, n? 15, lelefone: (021) 266-5995 
— Rio dc Janeiro — R.l. 
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processador de \i 
que fala a sua lingua 

O PPTEXTO 500 e urn processador de texto desenvol- 
vido cm linguagem de maquina para o microcompuiador 
CP 500, que vai tornar muito mais facil e rapida a impres- 
sao c cdicao de textos e cm portugues correto — contan- 
do com todas as vogais acentuadas c caractcrcs especiais 
de nossa lingua. Urn recurso exclusivo do PPTEXTO 500 
c o fa lo de os acentos aparecerem tanto na imprcssao co- 
mo no video do CP 500, sem a nccessidade dc alteracoes 
cm hardware. 

Enlre os recursos dc cdicao, o PPTEXTO 500 conta 
com a inscrcao e delete dc texto e opcragoes com blocos 
indicados pelo usuario, que pode detcrminar ainda os pa- 
ramctros de formato, como margens esquerda, direita, in- 
ferior e superior, alinhamento, cspacamento, titulos, 
numcracao automatica dc paginas e varios outros recursos. 

O armazenamento dc textos ou dados para arquivo, edi- 
cao ou impressao e feito em disquetc, permitindo eventuais 
atualizacocs ou alteracoes. 

Este programa pode ser encontrado na Peek & Poke Mi- 
crocompulacao e Comercio, Avenida Brigadeiro Faria Li- 
ma, nl' 1664, conjunto 1101, telefone: (011) 813-3277 — 
Sao Paulo — SP. 
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OS MODOS 

SEMIGRAFICOS DO 

CP 400 COLOR II 



Sem duvida alguma, a caracteristi- 
ca mais marcanic no CP 400 e a flexi- 
bilidadc na definic ao dos modos de ope- 
racao do video. Sao quatro modos gra- 
ficos de alta-resolucao, eada urn com 
dois conjunios de cores indepeiidentes 
e duas combinacoes de cores para a te- 
la de texto (prelo em fundo vcrde ou ver- 
melho em fundo laranja). Com isso te- 
mos dez configuracoes difercntcs para 
optar na hora de programar o visual de 
jogos, planilhas, processadorcs de tex- 
to, utilitarios etc. 

Mas o CP 400 nao para por ai. Alem 
dos modos graficos e de texto, e possi- 
vcl, com alguns macetes, obter-sc mais 
quatro modos de video, chamados "mo- 
dos semigraficos". A principal carac- 
terfstica desses modos c que eles permi- 
tem utilizar as oito cores, ao contrario 
dos modos graficos, onde voce tern que 
escolher entrc dois conjuntos de quatro. 

Primeiro, uma rapida explicacao so- 
bre como o CP 400 cria as imagcns que 
voce ve. Para muitos, essa explicacao 
pode ate ser macante, mas e necessaria 
para se ter uma nocao abrangente das 
possibilidades do equipamcnto. 

O gerador de video 

O circuito responsavel pela geracao 
de imagem c chamado VDG ( Video Dis- 
play Generator) e e um componente uni- 
co — um circuito integrado especial- 
mente projetado para essa funcao, que 
permitc a geracao de imagcns em tres 
modos basicos: de texto, semigrafico e 
grafico. No modo de texto, o VDG e ca- 
paz de criar caractercs valendo-sc de um 
gerador intemo baseado numa matriz 
de 5 por 7 pontos. Voce pode vcr quais 
sao esses caracteres introduzindo a se- 
guinte linha: 



FOR N = 33 TO 1 27:PRINT CHRS(N);:NEXT N 



O modo semigrafico e um modo de 
media rcsolucao associado ao modo de 
texto, enquanto que o modo grafico 
permite atingir uma rcsolucao mclhor, 
em detrimento do recurso de texto. 

Todos esses modos podem ser obti- 
dos com instrucoes relativamente sim- 
ples do Color Basic do CP 400, porem 
os modos semigraficos nao foram abor- 
dados pelo manual. Vamos comccar a 
explora-los pelo mais simples, aumen- 
tando a dificuldade gradualmente, mos- 
trando como utilizar os comandos em 
Basic para escolher o modo, as cores c 
como cada um afeta a memoria. 



Modo de lexto 

Trata-se do modo inicial de opera- 
cao do CP 400 Color, quando voce o 
liga ou pressiona RST. A memoria que 
esse modo ocupa esta representada na 
fijjura 1. Lembre-sc de que a borda na 
tela do seu TV e semprc preta nesse ca- 
so. A figura represcnta apenas o con- 
teudo do retangulo verdc no centra da 
imagem. 

Para armazenar as 1 6 linhas de 32 ca- 
racteres, sendo que cada caractere ocu- 
pa ! byte de memoria, sao necessarios 
512 bytes para representar toda a tela. 
Na tela, cada posicao, onde sera mos- 
tradoum caractere, cformada por uma 
matriz de pontos de 8x 12 (oito colu- 
nas de 12 pontos). Como os caracteres 
de texto sao gcrados em uma matriz 
5x7, como ja foi dito, sobra uma mar- 
gem de 2 pontos no alto do caractere, 
3 pontos embaixo, 2 a direita c 1 a cs- 
qucrda, como mostra a figura 2. 

Modos semigraficos 

O termo semigrafico vem do fatO de 
esses modos utilizarem a mesma posi- 
cao para os caracteres que o modo de 



MemiJrla do video 
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Um byto 
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Lolfa "X" 
I i^ur.i 2 — llloi'u ilr tnniclcrc 



texto, ou seja, blocos de 8 por 12 pon- 
tos na tela. 

Dependcndo do grau de rcsolucao, 
os modos semigraficos dividem esses 
blocos em 4, 6, 8, 12 ou 24 elementos 
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de imagem, como mostra a figura 3. Pa- 
ra identificar cada modo, clcs foram ba- 
lizados "modo semigrafico 4"; "mo- 
do semigrafico 6" etc... on, para os in- 
timos, SG4, SG6, SG8 etc... 

Todos os modos semigraficos divi- 
dem o bloco de caractere em 2 colunas, 
cada uma com 4 pontos de largura. Pa- 
ra mosiraro funcionamento dos modos 
semigraficos, tomarcmos como exem- 
plo o de melhor resolucao, o modo se- 
migrafico 24, o SG24. 

Modo semigrafico 24 

O SG24 divide o bloco de caractere 
em 24 elementos, cada um com 2 pon- 
tos dentro da matriz de 8 x 12, como 
mostra a figura 4. Cada bloco sera rc- 
presentado entao por 12 bytes na me- 
moria, perfazendo um total de 12 x 5 12 
bytes, ou 6 144 bytes. 

Cada dois elementos sao rcpresenta- 
dos por um byte, como mostra a figura 
5. As informacoes nesse byte especifi- 
cam a cor dos elementos e sua condicao 
(ligado on apagado). Os 32 primciros 
bytes da memoria reprcsentarao os 64 
elementos da borda superior da tela. Os 
32 seguintcs, a linha imediatamente 



LINHA 1 



PONTOS 



, LINHA l 
f DA TELA 
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oo o 
o o o 

O oO 
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SEMIGRAFICO 4 
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SEMIGRAFICO fi 
(6 olomentos) 



Hjtutu i — Tiirmalo 
vrmiuriilko 
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SEMIGRAFICO 12 . . 
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abaixo desta, e assim por diante, ate 
chegar na borda inferior. 

Para visualizar efeito do uso desse 
modo semigrafico, o programa a se- 
guircria uma tela "xadrez", intercalan- 



do elementos ligados com elementos 
apagados. 

Para ativar o modo SG24, sao utili- 
zados os POKEs cm 65475, em 65472 
e em 65477. As cores sao geradas alea- 
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»ORTE 



64 COLUNAS GRAFICAS POR LINHA 



32 BLOCOS POR LINHA 



Uglim J - Knirrtrnljivi" d» Mi24 




LINHA t 

■i 2 



t> 3 



UM BLOCO DE CARACTERE 




1024 
1025 
1026 
1027 



(S 



1055 
1056 
1057 
1058 



TOPO DA LINHA 1. PCI 



TOPO DA LINHA 1. PC2 



IOPODA LINHA 1. PC3 



TOPO DA LINHA 1, PC4 



TOPO DA LINHA 1.PC32 



2' FILA LINHA 1, PCI 



2.* FILA LINHA 1, PC2 



!• FILA LINHA 1. PC3 



6144 BYTES NO TOTAL 



0- 

© 
© 






32 BYTES DE 0IFERENCA 
ENTRE FILAS NO MESMO 
BLOCO 




LINHA 



LINHA 



toriamente, e o codigo do byie armazc- 
nado c calculado de acordo com a Hgu- 
ra 5, onde se ve a funcao de cada bit. 



10 ' MODO SEMI-GRAFICO 24 

15 B = PEEK(65314):POKE 65314,(B AND 7) 

20 POKE 65472.0: POKE 65475,1:POKE 65477,1 

25BY=128 + 0+10:'0E'COR. 10 E' CONFIGURACAO 

30FORNL = 0TO 191:FOR PC = TO 32 

35 POKE 1024 + NL*32 + PC.BY 

40 NEXT PC 

45 CC = RND(9C 16-16 

50IFNC=10THEN NC = 5ELSE NC=10 

55BY=128 + CC + NC 

60 NEXT NL 

65 EXEC 44539 

BY Byte calculado para dois 



Vurkiveis do programs 

B Controle da PIA 

BY Byte calculado para dois 

elementos sucessivos 
NL Niimero da linha 
PC Posigao do caractere dentro da 

linha 
CC Codigo de cor para o byte 

calculado 
NC Niimero representative dos 

elementos 
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CAMPO condicao 

COR DOS ELEMENTOS 



UM BLOCO 



■fO 
+ 32 
t64 
+ 96 
+ 128 
+ 160 
+ 192 
+ 224 
+ 256 
+ 288 
+ 320 
352 



X = NAO IMPORTA 



ESTES BYTES 

NAO SAO CONTIGUOS 



Aposte na sorte 
e na eficiencia 
do CP 500 

Acasaloterica Lotesorte, 
do Rio de Janeiro, reserva pa- 
ra seus clientes urn service 
imiiio especial: a informati- 
ca, como mcio de garantir a 
sorte, pois os aposl adores 
niio precisam nem sair de ca- 
sa para fazer suas apostas na 
l.oto, Lotcria Esporliva ou 
incsmo em cavalos de corri- 
da. Eles tern a sua disposicao 
o Lolcfone, um sisiema espe- 
cial que utiliza, como princi- 
pal ferramenta de apoio, um 
microcompuiador CP 500, 
com 4S Kbytes de memoria, 
dois drives e uma impressora. 

O apostador tern apenas 
que ligar para a loja, iclenti- 
ficar-se, dar o numcro de sua 
senna para accsso ao banco 
de dado* e os numeros de sua 
aposta. Esses dados saodigi- 
tados no computador que, 
automaticamente, localiza a 




ficha do clicnte, emile uma 
listagem dos eartoes que de- 
vem ser marcados e tambcm 
o recibo da aposta. O service 
atende apenas a apostadoi es 
quejogam acima de CrS 40 mil. 
Instalado em 1983, o 
CP 500 permite o com role 
administrative das duas lojas 
da Lotesorte, apostas simples 
edesdobramentode apostas, 
alcm da emissao de mapas de 
duplas exatas para as apostas 
em cavalos. 



PREMIO NOBEL 

com o uso de computadores 



Os Premios Nobel de Fisica e Quimica de 1985 f'oram atri- 
bnidos a pesquisas e descobertas rclacionadas com o uso de 
computadores, e os tres premiados sao fisicos. Os profes- 
sores norte-americanos Herbert Hauptman e Jerome Karle 
dividiram o premio da Real Acadcmia Sueca de Ciencias 
pelos metodos que criaram usando computadores para de- 
terminar rapidamente a estrutura das moleculas, dando uma 
contribuicao muito importante para as pesquisas biologi- 
cas e farmaceuticas. E o professor Klaus von Klitzing, da 
Alemanha Ocidental, recebeu o premio de Fisica por ter des- 
coberto o "efeito hull ciuantiricado", muito litil para apli- 
cacocs na elctronica de semicondutores, area de importaneia 
basica para a informatica. 



Prologica exporta 
para a Argentina 





Depois de firmar-se como licler do mercado na- 
cional de microcomputadores, a Prologica amplia 
sua area de atuacao, iniciando exportacSes de seus 
equipamemos SP-16, CP 400 Color II e CP 500 
M80 para o mercado argentino, atraves de seu dis- 
tribuidor exclusivo: o Grupo Pittsburg, um dos mais 
tradicionais grupos agroindustriais daquele pais. 

O contralo prevS um minimo de exporlacoes de 
10 milhoes de dolares ao Iongo de seus quatro anos 
de duracao (86 a 89). No entanto. segundo estima- 
tivas de Frantz H. Vanstreels, diretor de Operacoes 
Internacionais da Prologica, as vendas para a Ar- 
gentina — que tem um mercado de micros e minis 
estimado em 100 milhoes de dolares (por ano) — 
podem alcancar os 5 milhoes de dolares. 

"O mercado de microinformatica argentino ain- 
da esta em dcsenvolvimento" — afirma Frantz — 
"representando um cxcelente campo para os pro- 
dutos Prologica. Nosso objetivo real e conquistar 
.•'"'0 desse mercado ja no segundo ano de atuacao 
(87), o.que rcpresentaria 5 milhoes de dolares". 
O vicc-presidente da Prologica, Carlos Roberto 
Gauch, salienta ainda que o mercado argentino e 
apenas o primciro passo na escalada da empresa no 
exterior. 

"A tecnologia Prologica, descnvolvida ao Ion- 
go de nove anos de atuacao no mercado interno, 
fez da empresa. segundo dados da propria SEI, a 
primeira do setor de microcomputadores. Conse- 
guimos chegar a uma excelente relayao custo/be- 
neficio, e estamos perfeitamente aptos para atacar 
os mercados externos. Ainda em 86 estaremos pre- 
sentes em outros paises da America l.atina e em al- 
guns paises de lingua Portuguese da Africa." 
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Um desafio para a industria nacional 



Sc o Brasil niio equacionar dc forma 
correla, adcquada e audaz seu ingresso 
na auiomacao, teremos, muiioccdo, o 
onus brutal dc ver iransformado cm su- 
cata o parquc industrial. Esta foi a ad- 
vertenciado ministro da Ciencia e Tec- 
nologia. Renal Archer, no II Conai — 
Congresso Nacional de Auiomacao In- 
dustrial — realizado no final do ano 
passado, em Sao Paulo. 

A necessidade dc mauler a compel i- 
lividadc no comercio exterior Icvou va- 
rios seiorcs as ultimas inovacoes techo- 
I6gicas internacionais, colocando-os na 
vanguarda do uso das novas tecnicas, 
como c o caso da industria de bens dc 
capital, sideriirgico e petroquimico — 



que demonstraram no evento suas mais 
rccenles conquistas na auiomacao. 

Arildo Genlil Russo, presidente do 
II Conai, explica o que scria a utiliza- 
caointensiva da auiomacao industrial: 
"Controlar automaiicamente a produ- 
cao, desde a chegada da materia-prima 
na fabrica ate a bora em que o eaminhao 
sai carrcgado com o produlo acabado, 
incluindo tambem a parte administra- 
tiva da empresa, como comas a pagar 
ereceber, controle deestoques, faturas, 
gestao de mao-de-obraetc. Para isso sc 
integrariam a producao robos, contro- 
ladorcs dc proccssos, microcomputado- 
res, sistemas CAD/CAM e ferramen- 
tas programaveis". 



ITA e FEI na computagao 



O mais avancado curso no Brasil na 
area dc informatica sera iniciado em 
1987 pelo Institute TecnoldglCO da Ae- 
ronautica ( IT A), destinado a formacSo 
de cngenheiros dc computador e pro- 
gramadores, atendendo, assim, as ne- 
ecssidades dc hardware e software do 
pais.Comestc projeto.o IT A consolida 
o sen pioneirismo no setor da informa- 
tica, poiso institutoprodu/iu cm 1961 



o primciro computador nacional. 

A Faculdade de Engenharia Indus- 
trial de Sao Bernardo do Campo — FEI 
— tambem consolida seu alto nivel icc- 
nologico com seu novo curso de Enge- 
nharia dc Computadores, para gradua- 
cao. Os especialistas formados nesta 
area estarao habilitados a trabalhar na 
conccpcao, consirucao e manutencao 
de computadores. 



Voce quer se casar? 

CONSULTE O CP 500 



Pelo menos c isso o que os solitarios 
dc Brasilia estao fazendo, atraves da 
Enlace — Agencia de Namoro, que ins- 
talou ha um ano c meio um CP 500 e 
uma impressora P 500, para a selccao 
dos pares ideais. E nestc pcriodo, a se- 
lecaocomputadorizadajarealizouseis 
casamentos, garante Carlos Andre Ro- 
riz, proprietario da agencia. 

Atualmenle, o CP 500 trabalha com 
cerca de 400 nomes cadastrados, de am- 
bos os sexos. Para eneontrar seu amor, 
os brasilienses preenchem duas fichas: 
na primeira colocam suas caracleristi- 
cas, condicao social e nivel educacional, 
e na outra indicam as caracteristicas do 
tipo ideal de companheiro(a) que prc- 
tendem eneontrar. De posse desses da- 
dos, oCP 500processaasinformac6cs 
e indica as uniocs. 





Q- informatiza 
^J Petrobrds 




A Petrobrds, hoje a principal empre- 
sa da America I alina em volume de 
vendas, Fechou negocio com a Prologi- 
ca para o fornecimento de 102 micro- 
computadores SP- 1 6 e 63 impressoras. 
para utili/acao cm varias areas da 
empresa. 

A microinformatizacao da Petro- 
bras comecou ha cerca dc dots anos, e 
sua politica atual, como informa Ma- 
noel C. Scgadas Vianna, chelc adjunto 
da producao de servico de Processa- 
mento dc Dados, e "descentralizar o 
maior mimero possivel de aplicacoes, 
mantendo cent ralizado o banco de da- 
dos". Seyadas alirmaaindat|uca"cra 
dos 8 bits esta terminando na Pel robras, 
e nosso i I'lacionamenio com a Prologi- 
ca triplicou cm poucos meses depois dos 
seu^ 16 bits". 

(adas salients ainda que o SP-I6 
e as impressoras forarn "exBustivamen- 
te test ados, com resultadosamplamente 
satisfaldrios, pois os micros atendem a 
todos os requisitos exigidos pela Petro- 
bras: acesso ao banco de dados, proces- 
samento dc linguagens, manutencao e 
eusto". 

Oitenta e nose dos 102 equipamen- 
tos adquiridos serao Utilizados nos scr- 
vicosde engenharia, material, transpor- 
ic, processamentode dados e servico fi- 
nancciro, realizando trabalhos que \ ao 
do controle de estoques, obras, com- 
pras c orcamentos ;i determinacio dc 
I rotas dc navios c controle do novo sis- 
icma dc tancauem da Petrobris. 
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ASSISTENCIA TECNIC A 

PROLOGICA 

eficiencia em trinta minutos 



Pasquale Amato 
coordena 




Se voce tern urn computador pessoal 
coin iccnologia Prologica, nao precisa 
niais se preocupar com assistcncia tcc- 
nica: acaba de ser implantado o Aten- 
dimento Rapido Prologica, um servico 
especial de reparos para o CP 200, CP 
300, CP 400 e CP 500 modelo 02 1 . Em 
irinta minutos, aproximadamente, com 
umagaranlia de45diase com base em 
precos fixos, os usuarios de computa- 
dores pessoais saem da assistencia tcc- 
nica com sens cquipamentos promos 
para utilizaeao. 

"Trata-se de uma iniciaiiva pionei- 
ra na area" — explica Pasquale Ama- 
to, diretor do Departamento de Assis- 
tencia Tecnica da Prologica, responsa- 
velp'elaimplaniacao do servico, que c\i- 
giu um investimento da ordem de 400 
milhoes de cruzeiros para garanlir aos 
usuarios a liberacao quase que imedia- 
la de seus micros. "Todo o sistema de 
coriserto e Feito na base de troca de nui- 
dulos, efctu'ada por um dos quatro tec- 
nicos desiacados exclusivamenie para 
o atendimento rapido" — frisa Pasqua- 
le Amato. 

O sistema e simples — e opcional . O 
usuario entrega o micro no atendimen- 
to da AssistC-ncia Tecnica e, enquanto 
espera, pode se distrair com jogos ele- 
tionicosespecialmenteinstaladosnarc- 
cepcao. "O conserto leva em media 30 
minutos, e a Prologica area com as des- 



pesas que ultrapassarem o preco Rxo 
cobrado de acordo com o modelo do 
micro" — explica Amato. 

A tabela da empresa e de 1 ,8 ORTN 
para o CP 200. 2.S OR 1 V para o 
CP 300eCP 400,ede4ORTNspaiao 
CP 500 (modelo 021). 

Amato faz questao de ressaltar que 
"evidentemente, quando se tratar de 
um pequenodefeito, sanadoporexem- 
plo com uma simples religaeao de fios, 
o conserto e gratuito". 

Para meados do proximo ano, o 
DAT promete estendcr o servico para 
a area de sistemas e impressoras. En- 
quanto isso, osquequiserem desfrutar 
do Atendimento Rapido Prologica po- 
dem levar sens micros a Rua Fidencio 
Ramos, 302, Vila Olimpia. 

Paralelnmente a esse novo servico do 
DA T, o atendimento de campo para mi- 
cros professional's (como o Sistema 700 
Modular eSP-1 6) estasendocontinua- 
mente aperfeicoado, e os usuarios 
atualmcnte estao sendo atendidos cm 
media de 4 a 6 horas apos a chamada. 



AUMENTEAVIDAUTIL 
DESEUCP 

()s compuiadores pessoais sao 
Fabricados para operar nos mais 
\ ariados ambientes, sem necessitar 
de cuidados nuiito especiais. Po- 
rcm. se voce quiser uma \ida uiil 
mais longa para os seus equipamen- 
tos e nao for um assiduo freqtien- 
tadordeassisienciastccnicas.tome 
nota de algumas dicas de mantiseio 
e cuidados basicos: 

1. Siga sempreas recomendagoes 
lecnicas do rabricante. 

2. Evite ligar o compuiador na 
mesma rede que alimenta geladei- 
ras, freezers, mdquinas dc lavar 
roupaeoutros cquipamentos simi- 
lares, pois eles puxam muila ener- 
gia eletrica, provocando oscilacoes 
de lensap que podem danilicar a 
memdria ou apagar o conteudo do 
disquete. 

3. Cuidado com a poeira, cinza de 
cigarros ou simiiares. Cubraseu 
equipamentocom umacapa prote- 
toia espeeffica sempreque ele nao 
esti\ci em uso. 

4. A icmperatura amhienie ideal 
para um computador pessoal e na 
laixa dos 25°C. 

5. Nunca instate placas dc expan- 
sao, interfaces e perifericos com o 
computador ligado, pois isso pode- 
r;i ocasionar a queima do acessorio. 

6. Para limpeza, siga as indicacoes 
dofabricante. 

7. As unidades de disco (ou disk- 
drives) c disquetes nao devem ser 
expostas a poeira eumidade. Evite 
tocarnasupcrHciedegravacaodos 
disquetes, guardando-os lunge do 
sol, da umidade excessiva e na po- 
sicSo vertical, dentro das respecti- 
\ as capas. 
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CURSO IIMTENSIVO DE 
MICROCOMPUTADORES 

TUDO QUE VOCE QUERIA SABER SOBRE INFORMATICA 




UM LIVRO INDICADO PARA: 

• Executivos 

• Engenheiros 

• Profissionais liberals 

• Cientistas 

• Professores 

• Usuarios de micros 

• Tecnicos 

• Homens de venda 

• Estudantes 

• Hobistas 

• Homens de negocios 



Um dos livros mais populares sobre microcomputadores 
agora em portugues. Seu conteiido abrangente, 
apresentado de forma clara e objetiva, permite uma rapida 
introducao ao excitante mundo dos micros. 

A grande maioria dos livros sobre informatica Ihe diz muito 
mais do que voce realmente precisa ou quer saber sobre 
computadores; muitas vezes abordam certos conteudos que 
nao interessam ao iniciante, tratando outros aspectos mais 
praticos apenas superficialmente. O Curso Intensivo 
apresenta o que voce precisa saber de uma maneira 
interessante e didatica. Sua abordagem inclui desde as 
nogoes elementares sobre os micros e evolui. passando por 
toda a teoria que os envolve, como os sistemas numericos, 
memorias e muitos outros assuntos de interesse. Apresenta 
nogoes de programagao e um rapido curso de linguagem 
BASIC. 

Finalmente, o livro aborda a mais nova tendencia 
tecnologica: os microprocessadores de 16 bits. Esses 
componentes estao presentes em praticamente todos os 
micros mais recentes. Trata-se de uma obra destinada a 
todos aqueles que querem acompanhar essa revolugao 
tecnologica que vivemos. 
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PREENCHA O CUPOM ABAIXO E FAgA AGORA O SEU PEDIDO REMEIENDO 
I PARA EDITELE - EDITORA TECNICA ElETRONICA LTDA CAIXA 
| POSTAL 30 141 - CEP 01000 - SAO PAULO - SP 




Eslou enviando o cheque n." no valor de CrS . 

do Banco ou Vale Postal n." (enviar a Agenda Central I 

para pagamentode exemplar(es)do livro'Curso Intensivo de Microcomputadores" 

que me sera(ao) remelido(s) pelo correio. 

Nome 

Enderego 

Bairro 

Cidade ___^ 



CEP^ 



Empresa . 



.Prolissao. 



Estado. 
.Cargo _ 



ESTE CUPOM E VALIDO SOMENTE PARA O TERRITORIO MACIONAL 
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PEEK e POKE (e outras novidades) para o 



CP 400 Color 




gp i Wmmm 




Este artigo tern a clupla funcao de moslrar a versatili- 
cladc do CP 400 c quais as novidades disponiveis atual- 
mcntc para de, tais como novos acessorios. 

Para comecar, vamos as dicas: entre os comandos mais 
poderosos e que permitem um acesso real a maquina, es- 
tao os comandos PEEK e POKE. O primeiro fornece o 
conteudo de uma posicao de memoria qualquer do CP, 
e o outro permite colocar um deierminado valor em uma 
posicao de memoria, desde que esta esteja em RAM. 

Vamos vcr uma seric de PEEKs interessantes: 
? PEEK (33) -256 + PEEK (34): Retorna o endereco de inicio 
do armazenamento de strings na RAM. 
? PEEK (116): Retorna 127 em um computador de 64K ou 
63 em um de 16K. 

? PEEK (135): Fornece o codigo ASCII da ultima tecla pres- 
sionada num INKEYS. 

? PEEK (186) "256 + PEEK (187): Retorna o endereco de ini- 
cio das paginas de alta resolucao na memoria. 

E agora, uma lista de POKEs: 
POKE 359,57: SCREEN 0,1: Deixa a tela laranja e as Ietras ver- 
melhas, ate voce resctar o micro ou desliga-lo. 
POKE 359,255: A partir deste POKE, todos os comandos di- 
gitados nao aparecerao na tela, embora sejam executados. 
POKE 359,126: POKE 360,162: POKE 361,133: A partir destes 
POKEs, todas as teclas digitadas aparecerao cm dobro. 

E se voce gosta de "scntir" o que esta digitando, que 
tal um programinha que ativa um Bip de teclado no seu 
CP 400? Apos digitar este programa e dar RUN, podera 
apaga-lo. A partir dai, qualquer tecla pressionada cmitira 
um Bip pelo alto-falante da TV. Se voce quiser modificar 
o som do Bip, e so usar o comando SOUND X,Y uma vcz, 
e o computador assumira este som como normal. Digite 
o programa a seguir, e veja o que acontece: 



10 REM ROTINA DE BEEP 

20 A = PEEK (116) -256 + PEEK (117) 

: X = INT (A/256): Y = A - (X ■ 256): FOR 

I = A TO A + 9: READ B: POKE l,B: 

NEXT I: POKE 362,126: POKE 363.X 

: POKE 364.Y: CLEAR 200.A: DATA5 

2.118.198.1,189,169,81,53,118,57 



632 



E que tal uma moldura giratoria para a abertura dos seus 
programas, parecida com aquela que e utilizada em 
muitos cartuchos da propria CP Computadores Pessoais?. 
Aqui esta um programa simples para obte-la: 



10 CLEAR 200, 15000:CLS 

20 FOR X= 15000 TO 15103 

30 READ OPS:N = VAL("&H" + OPS) 

40 POKE X, N:NEXT 

50 PRINT 0i 170, "DICAS";: PRIN 

•3, "DA";: PRINT@295, "GERACAO 
PROLOGICA"; 

60 EXEC15000: FORX = 1T075:NEXT:J = J 
+ 1:IF J>50 THEN GOTO 130 ELSE GO 
TO 60 • 

70 DATA 31. 8D. 00, 5F, 1F, 21. E6, 8D, 
00, 5D, 3A, 1F, 12. 8E. 04, 00, A6. A0. A7 
, 80, 8D, 44, 8C, 04, 20. 26, F5, 8E, 04, 3 
F,A6, A0 
80 DATA A7. 00, 8D, 36, 30, 88, 20, 8C, 

05, FF. 26. F2, 8E. 06, 00. A6. A0. A7, 82 
, 8D. 25. 8C, 05, E0, 26, F5. 8E, 05, CO. A 

6, A0, A7, 00 

90 DATA 30, 88. E0, 8D, 14, 8C, 04, 00, 

26, F2, A6, 8D. 00, 18, 4C, 81, 04, 26. 01 

. 4F, A7, 8D, 00, 0E. 39, 81, BF, 26, 04, 3 

1.8D, 00, 01. 39 

100 DATA 9F, AF, CF, BF, 00 

110 REM INICIO DO SEU PROGRAMA 

120 CLS: END 



Apos digitar esta rotina, digite o seu programa a partir 
da linha 130. Assim que voce roda-lo, aparecera a moldu- 
ra giratoria por algum tempo e logo depois o seu progra- 
ma comecara a funcionar. 

Para finalizar, vamos ver o que existe de novidade pa- 
ra o CP 400 Color. 

Em novos acessorios c programas, tcmos o conversor 
serial-paralelo, fabricado pcla Micro Equipamentos, de 
Sao Paulo, que permite a ligacao do CP 400 a qualquer 
impressora paralela padrao Centronics, e o chaveador se- 
rial da mesma empresa, que permite a utilizacao de dois 
acessorios que necessitem da saida serial (um modem e uma 
impressora por exemplo), bastando girar uma chave para 
conectar um ao outro. 

Da Novatec, do Rio de Janeiro, tcmos o hardware-soft- 
ware ColorMax, composio de um conversor A/D de 8 bits, 
que e concctado na entrada para cartuchos, e de um pro- 
grama em fita ou disco que e simplcsmente o melhor pro- 
grama para desenho disponivel atualmente no mercado pa- 
ra um computador do porle do CP 400. 
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Enderei;o das finnas citadas neste artigo: 
Micro Equipamentos: Rua Pedro Tcixeira, 13 — Sao Paulo 

— SP — CEP 04550 — fone: (01 1) 533-2326. 
Novatec: Caixa Postal 14744 — Rio de Janeiro — RJ — 
fone: (021) 245-5823. 

Logaritmo: Rua Dr. Afonso Pena, 219 — Porto Alegre 

— RS — tone: (0512) 23-2655. 



ALGUNSSEGREDO 
DO CP 200 




Voce ja olliou para o Basic de outros computadores e 
se scntiu frustrado com comandos do (ipo ON X GOTO 
100, 200, 300, 400, 500? Ou entao ja deve ter ficado lou- 
co, tcnlando converter programas, mas tendo que parar 
num comando ON, nao e verdade? Pois entao, prepare- 
se: o CP 200 pode fazer tudo isso e muito mais. 

No Basic do CP 200, praticamente qualquer mimero po- 
de scr substituido por uma variavel ou uma expressao 
mimerica. E possivel, por excmplo, fa/.er: GOTO X ou 
GOSUB X. Sc X for igual a 1000, o comando sera equi- 
valenle a GOTO 1000. Mas isso nao c tudo. Com o uso 
de operadores logicos, e possivel fazer coisas do tipo: 



GOTO 100-(X = 1) + 200-(X=2) + 300-(X=3) + <!00-(X=4) + 500-(X=5) 



Na linha acima esta a "versao CP 200" do comando 
ON X que vimos antes. A vantagem e que dentro dos pa- 
renteses pode haver qualquer expressaorelacional (que uti- 
liza operadores logicos: =, < , >, <>,<=, >=, AND, 
OR). Isso significa que essa construcao pode evitar deze- 
nas de linhas IF... THEN GOTO. ..Para sub-rotinas, subs- 
titua os GOTO por GOSUB. 

Outra dica interessante e sobre as funcoes RANI) USR, 
PRINT USR, PLOT USR e SINUSR. A funcao USR, na 
verdade, c outro capitulo sobre os "poderes ocultos" do 
CP 200. A difcrenca e que o Basic do CP 200 trata a USR 
como funcao e, portanto, pode scr usada no lugar de ex- 
pressocs numericas, relacionais, ou valores simples. 

Acontcce que a USR retorna um valor numerico inteiro 
e, para ve-lo basta usar PRINT USR. De onde vem esse 
valor? Ele e o mimero que cstava no registrador BC do 
Z-80, o micrbprocessador do CP 200. 

— Aim... mas isso e linguagem dc maquina... 

Calma. Nao se desespcre aincla. Voce nao prccisa ser um 
eximio programador para usar a funcao USR. Na pior das 
hipotcses, voce ja sabcra ccrtos segredos quando for cstu- 
cla-la. Nao tenha medo. As coisas acontccem assim mesmo. 

Com a funcao USR c possivel construir programas gra- 
ficos utilizando PLOT e UN PLOT com os argumentos da 
funcao, inserir as USR em formulas numericas e o que mais 
sua criatividade permitir. Voce podera, por exemplo, usar 
USR em seus programas para acionar diretamente as roti- 
nas da ROM, para agilizar seus programas e dificultar o 
acessode"curiosos".Aseguir,algumasrotinasUSRavcis... 




Rotina lEndcrcco iDescricao 


SAVE 


756 


Comando SAVE 


LOAD 


832 


Comando LOAD 


NEW 


963 


Comando NEW 


LLIST 


1836 


Comando LLIST 


LIST 


1840 


Comando LIST 


COPY 


2153 


Comando COPY 


CLS 


2602 


Comando CLS 


SCROLL 


3086 


Comando SCROLL 


FAST 


3875 


Comando FAST 


SLOW 


3883 


Comando SLOW 


RESET 





O mesmo efeito que a tecla RESET 



SIS TEMAS 

dialogica — 



DESENVOLVEMOS OU ADAPIAMOS 

O PROGRAMA CERTO PARA ATENDER 

AS SUAS NECESSIDADES 

Contabilidade - Folha de Pagamento - Estoque 

Contas a Pagar/Receber 

Transmlssao de Dados 

"Software para Hotelaria" (completo) 

Software para Agendas de Propaganda 

especificos. 

Clientes bem atendidos em todo o Pais. 
Breve filial Rio de Janeiro. 




CURSOS 

riialngina 



PROGRAMAQAO DE 

MICROCOMPUIADORES 

EM BASIC 

Horarios - 2f s e 4? s - 19/22 h 
3:'" e 5-y- - 19/22 h 
sabados - manha/tarde 

Duracao - 36 horas + pratica livre 

Vagas - 12 por turma. micros a disposicao com 
instrutor 

Prepo: promocional em 2 parcelas 

Rua Fradique Coutlnho, 50 64-0331 
Pinheiros 64-7131 



J dialogica 
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LIVR 



OS 




Informalica: Micro Rcvela- 
coes, coordenaeao de Eduar- 
do O. C. Chaves, volume I 
da serie Domine o Compu- 
tador, Cartgraf-Editora. 

Ricamente ilustrado e 
cemtendo os principals con- 
ceiios historicos c tecnicos de 



informalica, este livro e uma 
introducao pormenorizada 
do que e, eomo sc constitui 
c funciona um microcom- 
putador. 

A partir de um breve his- 
torico, que comcca com o 
EN1AC, o primeiro eletroni- 
co construfdo cm 1946, os 
aulorcs se esmeram em tra- 
car de maneira clara e obje- 
tiva a evolucao destas 
maquinas ate chegar aos mi- 
croprocessadores e micro- 
compuiadorcs que hojc 
estao transformando rapida- 
mente a nossa sociedade, 
exigindo cada vez mais dos 
profissionais de todas as 
areas. 




Brincando com o TRS Co- 
lor, de Victor Mirshawka, 
191 paginas, Editora Nobel. 

Este livro permite ao pro- 
gramador iniciante dcsenvol- 
ver toda sua criatividade c 
imaginacao de forma con- 
crcta e colorida, capacitan- 
do-o a explorar toda a gama 
de recursos graficos do Ba- 
sic dos microcomputadores 
nacionais compativeis com o 
TRS-80 Color. 

Programas para conjun- 



tos de retas, circunferencias, 
molduras com o interior pin- 
tado, desenhos sofisticados, 
jogos musicados e pcquenos 
jogos: a combinacao de tu- 
do isso esta neste livro. 

O ponto basico de Brin- 
cando com o TRS Color e, 
segundo o autor, ajudar o 
programador a descobrir 
que a habilidade de criar gra- 
ficos e um ponto de autova- 
lorizacao. As instrucoes para 
graficos coloridos sao apre- 
sentadas de forma gradual, 
de maneira que o programa- 
dor possa, pausadamente, ir 
ganhando plcno dominio do 
que se exibe na tela, a medi- 
da que aprende uma nova 
instrucao grafica, necessaria 
para a elaboracao de um 
programa. O autor aprcsen- 
ta ao final de alguns capitu- 
los "pequenas tarefas" que 
devem ser usadas como cxer- 
cicios. 




30 Programas para TRS-80 
Color Computer & Similares 
Nacionais, de Mario Mcndes 
Junior, 140 paginas, Edito- 
ra Ciencia Modcma Compu- 
tav'ao, Rio de Janeiro. 



Este livro visa, atraves de 
exemplos praticos, propor- 
cionar um rapido conheci- 
mento das potencialidades 
do Color Computer. Todos 
os programas foram escritos 
em linguagem Basic e rodam 
em micros com apenas 16 
Kbytes. 

Entre os programas, voce 
encontrani: Batalha Naval, 
Protetor de Disquetcs, Jogo 
da Forca, Genio, Torres dc 
Hanoi, Aula de Ingles, Inva- 
sorcs do Espaco, Mergea- 
dor, Mansao, Sinfonia, 
Ataque de Misseis, e outros. 



I'rincipios de Sislemas de 
Gerencia de Banco de Dados 
Distribufdos, de Marco An- 
tonio Casanova e Arnaldo 
Vieira Moura, 355 paginas, 
Editora Campus. 

Este texto aborda com cla- 
reza c precisao os principals 
tcrmos levantados pela 
Const rucao de Sistemas de 
Gerencia de Banco de Dados 
Distribuidos (SGBDD). 
Destina-se a preparar profis- 
sionais c estudantes para o 
advento desta podcrosa fcr- 




ramenta, que representara, 
cm poucos anos, um papel 
fundamental no descnvolvi- 
mento dc Sistemas de Infor- 
macao Distribuidos. 




Carlao de Rel'erencia CI' 
200 — EDITELE — Editora 
Tecnica Eletronica. 

A maior familia de micros 
do pais, a dos compativeis 
com o CP 200 da Prologica, 



acaba dc ganliar um cartao 
de referenda, lancado pela 
EDITELE. O cartao contem 
todas as informacoes indis- 
pensaveis para uma rapida e 
cficiente utilizacao do equi- 
pamento, sem a necessidade 
de Hear procurando indica- 
cocs no manual. 

Informacoes sobre o uso 
do teclado, caracteres grafi- 
cos, opcracoes permitidas e 
suas prioridades dentro de 
uma expressao, codigos de 
erro c instrucoes do CP 200 
tomam esse cartao uma fer- 
ramenta indispensavel para 
o programador. 
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1 600m z para Ihe proporcionar o melhor atendimenlo. 



FILCRES*,^ 



ATENDIMENTO 
PERSONALIZADO: 

Equipes especializadas para 

orienta-lo ou demonslrar 

equipamenlos em lodo o 

territdrio national. 



ASSISTENCIA 
TECNICA: 

Profissionais allamenle 

qualificados. 

aplosaalender 

qualquer lipo de necessidade. 



TREINAMENTO 
ECURSOS: 

Manlemos cursos e treinamento 

de operacao graluitos, 

incluindo aulas pralicas 

e material didatico. 




INFORMATICA: 

Complela linha de perifericos 
e compuladores, desde 
pessoais ale Sistemas 
profissionais. 



SUPRIMENTOS 
PARACPD: 

Diskettes, lormularios, litas 
para impressoras etc... 
aprontaentrega. 



INSTRUMENTOS: 

Equipamenlos de teste e medicao 
para as diversas areas 
da Eletromca e Informatica. 



AJUDANDO A DESENVOLVER TECNOLOGIA 

Rm Aurora, 165 - SP - Tel.: PBX (01 1) 223-7388 - Telex (011)31298 Direto - SP - 223-1446/ 
222-3458/220-91 13/220-7954 Direto outroi Ejtadot: 222-5430/221-0326/223-7649/222-0284 



EDUCADOR IUMM1 





CP500/Mra grande solupao. 

Garantia da maior biblioteca 
de programas aplicativos. 



O CP 500/M SO agora tambem e compali- 
vel com CP/M, o Sisiema Operacional 
niais difundido no mundo. Isso significa 
que, somando o Iradicional DOS 500 
com o CP/M, voce passa a dispor da maior 
biblioteca de programas aplicativos do 
mercado. Trata-se da solucSo inteligente 
e racional para o scu dia-a-dia, pcrmitindo 
a voce tirar vantagem de programas como 



CalcStar*, dBase II*, WordStar* c mtiilos 
outros, que v3o agilizar tanto a sua vida 
quanta a da sua emprcsa: Folha de 
Pagamento, Controle dd Estoque, Contas a 
Pagar/Receber, Administracao llospitalar, 
Calculo Estrutural, Sistema de Balancea- 
mento de Racocs c outros programas cspcci- 
ficos para o scu ramo de atividadc. 
O CP 500/M? possui saida paralela para 



Caractcristicas 


SLslcma Operacional 


Video 12" fosfrro vcrdc com controle de 

inlcnsidadc 

Tecladoprofissbnalcapacitisoconinumcrico 

redurido 

Interface para imprcssora paralela 

Interface serial padrao RS232-C fopciorlal) 

Frcqiicncia dcCpcracao: 2 Mh/. 

Unidadc de som com controle de volume 

Opeta coin 1 ou 2 drives de face simples ou dupla 




Mandril RAM 
Mcm6ria ROM 
Compatibilidade 
Video 


SO08 DOS 51X1 




64 Kbytes 48 Kbytes 
2 Kbytes 16 Kbytes 
CP/M- TRS-DOS 
80 colunas por 64 ou 32 colunas 
24linhas porl6linhas 





impressora, e voce pode instalar facilmente 
unia porta RS232-C, que o coloca em 
contatocom a Rede International de 
Telematica, alcm do Vidcotexto, Cirandao, 
Amanda etc. Conheca no seu revendedor 
mais proximo o CP 500/M 80 . 

Urn grande passo na informatica, com a 
qualidade CP e a Tecnoldgia Prologica. 



counmooRES pessoais 



TECNOLOOA ■■■ 
PROLOGICA .IB 
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I. Labirinlo 

Jogo de acao. desenvolvido para o CP 400 Color. Nesic programa voce 
lera que ajudar seu bichinho de estimacao a se salvar de urn interminavel 
labiiinio 2, 3e4 



2. Agenda Telefonica 

Aplicativo desenvolvido para o CP 300 on CP 500 



4, 5, 6e7 



3. Graficos 

Desenvolvido para o CP 200 AR, para os imcressados em consiruir grafi- 
cos para diversas funcSes irigonometricas 7 



JOGO 



LABIRINTO 



Color-64 Kb RA 



[nfelizmente o CP 400 Color aprisio- 
nou scu ratinho dc estimaciio em um 
obscuro labirinto. Sc voce nao conseguir 
mostrar rapidamenie onde estao escon- 
didos nacos de queijos deliciosos, scu bi- 
cliinlio vai niorrer de fomc, pcrdido pa- 



ra scmpre em corredores interminavcis e 
sombrios. Voce esla disposto a ajuda-lo? 
Entao digite correiamente a Iisiagem em 
Basic e execute RUN para o CP 400 ge- 
rar o labirinto e mostra-lo na tela. Pa- 
ra se movimentar, use as setas para a es- 



qucrda e para a direita, para virar para 
os lados, e a seta para cima para 
avancar. 

Sua visao do labirinto sera tridimen- 
sional, e, no alto da tela, um marcador 
indicara ciuantos passos ainda faltam pa- 
ra alcancar o queijo, em distancia ab- 
soluta. 

Se quiscr desistir, basta pressionar 
a tecla Q. O computador mostrara, en- 
tao, o labirinto visto por cima, as po- 
sicoes do queijo e a do ratinho... mor- 
to de fomc. Voce vai desistir? 



10 PCLERR4:CLERR200:DIM MZ(13,10 

) :CLS:G0T0470 

20 FOR 1=1 TO 250*3: NEXT 

30 LINE(0,0)-(24,16) ,PSET:LINE-( 

24 , 174 ) , PSET : LINE- ( , 190 ) , PSET : P. 

ETURN 

40 LINE ( , 16 ) - ( 24 , 174 ) , PSET , B : RE 

TURN 

50 LINE (254,0) -(230, 16) , PSET: LIN 

E-(230,174) , PSET: LINE- (254, 190) , 

PSET : RETURN 

60 LINE ( 230 , 16 ) - ( 254 , 174 ) , PSET , B 

: RETURN 

70 LINE (24, 16)- (230, 174) ,PSET,B: 

RETURN 

SO LINE ( 24 , 16 ) - ( SO , 50 ) , PSET : LINE 

-(SO,. 140) , PSET: LINE- (24, 174) ,PSE 

T: RETURN 

90 LINE ( 24,50 )-( 30, 140) ,PSET,B:R 

ETURN 

100 LINE ( 230 , 16 ) - ( 174 , 50 ) , PSET :L 

INE- ( 174 , 140 ) , PSET : LINE- ( 230 , 174 

) , PSET: RETURN 

110 LINE( 174,50) -(230, 140) ,PSET, 

B : RETURN 

120 LINE(S0,50)-(174,140) ,PSET,B 

: RETURN 

130 LINE(S0,50)-(116,74) ,PSET:LI 

NE-(116,116) ,PSET:LINE-(80,140) , 

PSET: RETURN 

140 LINE(30,74)-(116,U6) ,PSET,B 

: RETURN 

150 LINE ( 174 , 50 ) - ( 13S , 74 ) , PSET : L 

INE-( 138,116) ,PSET:LINE-(174,140 

) , PSET: RETURN 

160 LINE( 138,74) -(174, 116) ,PSET, 

B: RETURN 

170 LINE(116,74)-(138,116) ,PSET, 

B : RETURN 

ISO LINE(116,74)-(126,80) ,PSET:L 

INE- ( 126 , 110 ) , PSET : LINE- (116,116 

) , PSET: RETURN 

190 LINE(116,S0)-(126,110) ,PSET, 

B : RETURN 



200 LINE (138, 74)- (128,80) ,PSET:L 

INE-(123,110) ,PSET:LINE-(13S,116 

) , PSET: RETURN 

210 LINE(128,80)-(138,110) ,PSET, 

B 

220 

230 

240 

,BF: 

250 

,BF: 

260 

,BF: 

270 



RETURN 

ON SQ GOTO 240,250,260 

LINE(11S,156)-(136,170) ,PSET 

RETURN 

LINE ( 122 , 126 ) - ( 132 , 136 ) , PSET 

RETURN 

LINE ( 124 , 100 ) - ( 130 , 106 ) , PSET 

RETURN 

FL=0:F0R X=-l TO 1 STEP 2 
230 IF MZ(H+X,V><=0 THEN MZ(H+X, 
V)=-1:FL=1 

290 IF MZ(H,V+XX=0 THEN MZ(H,V+ 
X)=-l:FL=l 
300 NEXT X: RETURN 

310 DR=RND(4):0N DR GOTO 320,330 
, 340 , 350 

320 IF MZ(H-1,V)=-1 THEN NH=H-1 : 
N V=V : MZ ( NH , NV ) =4 : MZ ( H , V ) =MZ ( H , V ) 
+1: RETURN ELSE 310 

330 IF MZ(H,V-1)=-1 THEN NH=H:NV 
=V-1 : MZ ( NH , NV ) =8 : MZ ( H , V ) =MZ ( H , V ) 
+2: RETURN ELSE 310 

340 IF MZ(H+1,V)=-1 THEN NH=H+1 : 
N V=V : MZ ( NH , NV > =1 : MZ ( H , V ) =MZ ( H , V ) 
+4: RETURN ELSE 310 

350 IF MZ(H,V+1)=-1 THEN NH=H:NV 
=V+1 : MZ ( NH , NV ) =2 : MZ ( H , V ) =MZ ( H , V ) 
+3: RETURN ELSE 310 

360 FL=0:F0R X=12 TO 1 STEP-l:FO 
R Y=l TO 9 

370 IF MZ(X,Y)=)0 THEN 410 
380 FL=FL+l:F0R I=-l TO 1 STEP 2 
: IF MZ(X+I,Y)>0 AND MZ(X+I,Y)<10 
THEN NH=X+I:NV=Y 

390 IF MZ(X,Y+I>)0 RND MZ(X,Y+I) 
(100 THEN NH=X:NV=Y+I 
400 NEXT I 
410 NEXT Y,X: RETURN 
420 ON SQ GOSUB 30 , 80 , 130 , 180 : RE 
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TURN 

430 ON SQ GOSUB 40, . 90 , 140 , 190: RE 

TURN 

440 ON SQ GOSUB 50, 100 , 150 , 200: R 

ETURN 

450 ON SQ GOSUB 60 , 110 , 160,210: R 

ETURN 

460 ON SQ GOSUB 70, 120 , 170 , 220: F 

L=l: RETURN 

470 FOR H=0 TO 13 : MZ (H,0 )=100 : MZ 

(H, 10) =100: NEXT H : FOR V=0 TO 10: 

MZ ( , V ) =100 : MZ ( 13 , V ) =100 : NEXT V 

4S0 PMODEO , 1 : COLORO , 1 : SCREEN 1 , 1 : 

PCLS : DRRW " S3BM62 , S0RE3RERF2DF2R2 

UEUEUEUE3RER2ER4ER3FR3FR2F2RFR2E 

RERFRF2RF6L3GL3S " 

490 PSET( 170,72) : DRAW" BM17 , 120; D 

20R10 ; BM+5 , +0 ; U20R10D10L10R10D10 

; BM+5 , +0 : U20R3F2D6G2LSRSF2D6G2LS 

; BM+15 , +0 ; U20 ; BM+5 , +0 ; RSF2D6G2LS 

U10D20U10F10 ; BM+5 , +0 ; U20 ; BM+5 , +0 

; D20U20 ; M+10 , +20 ; U20 ; BM+5 , +0 j RIO 

L5D20 ; BM+10 , +0 ; U20R10D20L10 

500 LINE ( , ) - ( 254 , 190 ) , PSET , B 

510 FOR H=l TO 12: FOR V=l TO 9 : M 

Z(H,V)=0:NEXT V,H:H=RND(12> :V=RN 

D(9):MZ(H,V)=16: GOSUB 270 : GOSUB 

310:MZ(H,V)=MZ(H,V)-16 

520 H=NH:V=NV: GOSUB 270: IF FL=0 

THEN 540 

530 GOSUB 310: SOUND RND(255),1:G 

OTO 520 

540 GOSUB 360: IF FL=0 THEN 550 E 

LSE 520 

550 SV=RND(9) :SH=1 : CV=RND ( 9 ) : CH= 
12 

560 RH=SH : RV=SV : DR=RND ( 4 ) : PMODE 
4,1: SCREEN1 , 1 : C0L0R1 , 
570 PCLS: SOUND 10, 2: SOUND 100,2: 
SQ=l:Z=MZ(RH,RV) :FL=0:IF CH=RH fl 
ND CV=RV THEN 1440 

5S0 ON Z GOTO 590,600,610,620,63 
, 640 , 650 , 660 , 670 , 630 , 690 , 700 , 71 
, 720 , 300 

590 ON DR GOTO 750,740,730,760 
600 ON DR GOTO 760,750,740,730 
610 ON DR GOTO 730,770,740,760 
620 ON DR GOTO 730,760,750,740 
630 ON DR GOTO 750,790,750,790 
640 ON DR GOTO 760,730,770,740 
650 ON DR GOTO 730,300,770,790 
660 ON DR GOTO 740,730,760,750 
670 ON DR GOTO 770,740,760,730 
630 ON DR GOTO 790,750,790,750 
690 ON DR GOTO 300,770,790,730 
700 ON DR GOTO 740,760,730,770 
710 ON DR GOTO 770,790,730,300 
720 ON DR GOTO 790,730,300,770 



730 GOSUB 420 :GOSUB 440: GOSUB 46 

0:GOTO 310 

740 GOSUB 430: GOSUB 440: GOSUB 46 

0:GOTO 310 

750 GOSUB 420: GOSUB 440: GOTO 310 

760 GOSUB 420: GOSUB 450: GOSUB 46 

0:GOTO 310 

770 GOSUB 430: GOSUB 440: GOTO 310 

730 GOSUB 420: GOSUB 450: GOTO 310 

790 GOSUB 430: GOSUB 450: GOSUB 46 

0:GOTO 310 

300 GOSUB 430: GOSUB 450: GOTO 310 

310 IF FL=1 OR SQ=4 THEN 910 

320 ON DR GOTO 330,350,370,390 

330 Z=MZ(RH-SQ,RV) : IF CH=RH-SQ R 

ND CV=RV THEN GOSUB 230 

340 GOTO 900 

350 Z=MZ(RH,RV-SQ) : IF CH=RH AND 

CV=RV-SQ THEN GOSUB 230 

360 GOTO 900 

370 Z=MZ(RH+SQ,RV) : IF CH=RH+SQ R 

ND CV=RV THEN GOSUB 230 

330 GOTO 900 

390 Z=MZ(RH,RV+SQ) : IF CH=RH RND 

CV=RV+SQ THEN GOSUB 230 

900 SQ=SQ+l:GOTO 530 

910 IF RBS(CH-RH) >RBS(CV-RV) THE 

N Z=RBS(CH-RH> ELSE Z=RBS(CV-RV) 

920 DRRW"S3BM124,2":QN Z GOTO 93 

, 940 , 950 , 960 , 970 , 930 , 990 , 1000 , 1 

010,1020,1030 

930 DRRWBRD4" :GOTO 1040 

940 DRRW"R2D2L2D2R2":G0T0 1040 

950 DRRUI"R2D2NL2D2L2":G0T0 1040 

960 DRRW"D2R2NU2D2":G0T0 1040 

970 DRRW"NR2D2R2D2L2":G0T0 1040 

930 DRRW"D4R2U2L2":G0T0 1040 

990 DRRWR2D4" :GOTO 1040 

1000 DRRH"ND4R2D2NL2D2L2":G0T0 1 

040 

1010 DRRW"ND2R2D2NL2D2" :GOTO 104 



1020 DRRW"BLD4BR2R2U4L2D4" :GOTO 

1040 

1030 DRRWD4BR3U4" 

1040 SOUND 230, 3: SOUND 239,1 

1050 R$=INKEY$:IF R$="" THEN 105 



1060 IF R$=CHR*(3) THEN 1100 

1070 IF R$=CHR$(9) THEN 1120 

1030 IF fl$=CHR*(94) THEN 1140 

1090 IF R$="Q" THEN 1340 ELSE 10 

40 

1100 DR=DR-l:IF DR<=0 THEN DR=4 

1110 GOTO 570 

1120 DR=DR+l:IF DR>=5 THEN DR=1 

1130 GOTO 570 

1140 Z=MZ(RH,RV) : ON Z GOTO 1150, 
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1 160 , 1 170 , 1 ISO , 1 190 , 1200 , 1210 , 12 

20 , 1230 , 1240 , 1250 , 1260 , 1270 , 1280 

, 1290 

1150 IF DR=1 THEN 1290 ELSE 1040 

1160 IF DR=2 THEN 1290 ELSE 1040 

1170 IF DR<=2 THEN 1290 ELSE 104 



1180 IF DR=3 THEN 1290 ELSE 1040 

1190 ON DR GOTO 1290,1040,1290,1 

040 

1200 ON DR GOTO 1040,1290,1290,1 

040 

1210 IF DR=4 THEN 1040 ELSE 1290 

1220 IF DR=4 THEN 1290 ELSE 1040 

1230 ON DR GOTO 1290,1040,1040,1 

290 

1240 ON DR GOTO 1040,1290,1040,1 

290 

1250 IF DR=3 THEN 1040 ELSE 1290 

1260 IF DR>=3 THEN 1290 ELSE 104 



1270 IF DR=2 THEN 1040 ELSE 1290 

12S0 IF DR=1 THEN 1040 ELSE 1290 

1290 IF DR=1 THEN RH-RH-i 

1300 IF DR=2 THEN RV=RV-1 

1310 IF DR=3 THEN RH=RH+1 

1320 IF DR=4 THEN RV=RV+1 

1330 GOTO 570 

1340 CLS:PRINT<U30,"PRESSI0NE QU 

RLQUER TECLfl QURNDO RCRBRR DE VE 

R LRBIRINTO." :GOSUB 20:C0L0R0, 

1 : SCREEN 1,1: RCLS : LINE ( , ISO ) - ( 

,0) ,PSET: LINE- (240,0) ,PSET:FOR H 

=1 TO 12: FOR V=l TO 9:Z=MZ(H,V) 

1350 ON Z GOTO 1360,1360,1360,13 



70 , 1370 , 1370 , 1370 , 13S0 , 13S0 , 13S0 

, 1330 , 1390 , 1390 , 1390 , 1390 

1360 LINE ( 20*H-20 , 20* V ) - ( 20*H , 20 

*V ) , PSET : LINE- ( 20*H , 20*V-20 ) , PSE 

T:GOTO 1390 

1370 LINE ( 20*H-20 , 20*V ) - ( 20*H , 20 

*V>, PSET: GOTO 1390 

1380 LINE ( 20*H , 20*V ) - ( 20*H , 20*V- 

20 ) , PSET 

1390 NEXT V,H: CIRCLE (20*CH-10, 20 

*CV-10 ) , 6 : PRINT ( 20*CH-10 , 20*CV-1 

) , , 

1400 LINE ( 20*SH , 20*SV-20 ) - ( 20*SH 

-20 , 20*SV ) , PSET : LINE ( 20*SH , 20*SV 

) - ( 20*SH-20 , 20*SV-20 ) , PSET 

1410 LINE ( 20*RH-4 , 20*RV~4 ) - ( 20*R 

H-16,20*RV-16> ,PSET,BF 

1420 LINE ( 20*RH-4 , 20*RV-4 ) - ( 20*R 

H-16 , 20*RV-16 ) , PRESET : LINE ( 20*RH 

-4 , 20*RV-16 ) - ( 20*RH-16 , 20*RV-4 ) , 

PRESET 

1430 IF INKEY$="" THEN 1430 ELSE 

1450 
1440 FOR Z=0 TO 10 :CLS( RND ( 9)-l ) 
:PRINT@197,"V0CE PEGOU QUEIJO 
!!";:SOUND RND ( 255 ) ,2: NEXT Z 
1450 PRINT@44S," rnESMO LRBIRINT 
0, nOVO OU sRI" 
1^60 R*=INKEY$:IF R$="" THEN 146 



ELSE 145 




1470 


IF 


R$="M" THEN 


560 


1480 


IF 


R$="N" THEN 


480 


1490 


IF 


R$="S" THEN 


END 
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APLICATIVO 



AGENDA TELEFONICA 



Telefones c cnderecos de amigos, 
primos, tios, vizinhos, de emergencia, 
dentistas, medicos, mais amigos, mais 
parentes, namorados... pronto! A sua 
antiga agenda ja nao tern cspaeo para 
nenhum telefone, nem mesmo para 
aquele tao importante. Que tal fazer dc 
seu computador pessoal uma agenda 
mais cficicnie? 

Com esta agenda eletronica voce po- 
dera alterar o que quiser, ate 50 regis- 
tros. Para que sua agenda funcione 
corretamente, siga as instrucoes: 

1. No campo de endereco nao podem 
scr digitadas virgulas (,), pois o com- 



putador desprezani tudo o que for di- 
gitado depois dcla. 

2. Podcrao ser digitados ate 50 regis- 
tros de um s6 vcz, para posterior gra- 
vagao em fita. Quando for alcancado 
estc mimero, sera visualizada na tela 
a seguinte mensagem: "SAIDA PARA 
ARMAZENAMENTO DE DADOS/ 
TECLE ENTER PARA VOLTAR 
AO MENU/***ARMAZENAR EM 
FITA***". 

3. Estc mimero de registro poderd ser 
alterado na linha: 



260 FOR L = K TO 50 



4. Quando a fita estiver cm precarias 
condicoes de uso, sera visualizada na 
tela a seguinte mensagem: DADO 
MAL GRAVADO NO ARQUIVO. 

5. Na opcao (6) voce tera duas formas 
de exibicao do arquivo: curto (C), on- 

.de so serao visualizados o nome e o te- 
lefone; e longo (L), onde serao mos- 
trados todos os dados do arquivo. 

6. Tecle SHIFT @ para parar a tela e 
ENTER para continuar. 

7. Para armazenamento de dados man- 
tenha o gravador com tonalidade 10 e 
volume 2. 

8. Para carregar a fita, mantenha o 
gravador com tonalidade 10 e volume 8. 
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10 / *«*******#********»#****»*-** 
20 '♦ AGENDO TELEFONICA * 
30 '* CP-COMPUT. PESSORIS * 
40 '*CP300 / CP500(VERSR0 FITA)* 



50 



' ^» it ii ■• it ii ii ii 



LI P I T Q II II II It II II II II Hit 



60 '*********»*******♦********** 

70 CLS : CLEAR 10000 :DEFINT E-Z:DEFS 

TR R-D 

80 DIM RK50), A2(50), B(50), Cl<5 

0), C2(50), D(50), A(50), E(50) 

90 CLS: PRINT TAB (24) "RGENDR TELE 

FONICR" 

100 PRINT TRB(13> "********♦♦»***♦ 

* > -MENU- < *******♦*♦****»♦ " 

110 PRINT TRB(13) "♦ 

*" 
120 PRINT TRB(13) "* PRRR GRAVAR 

<1> *" 
130 PRINT TAB (13) "* PRRR VER UM 
REG. <2> *" 

140 PRINT TRB(13) "* PRRR VER TOD 
OS OS REG. <3> *" 
150 PRINT TRB(13) "# PRRR RLTERRR 

UM REG. (4) *" 
160 PRINT TRB(13) "# PRRR RRMR2EN 
RR EM FITR <5> *" 
170 PRINT TRB(13) "* PRRR CRRREGR 
R R FITR <6> *" 
ISO PRINT TRB(13) "* PRRR EXIBIR 
RRQUIVO <7> *" 
190 PRINT TRBU3) "* PRRR EXIBIR 
EM ORDEM RLFRB.<8> •" 
200 PRINT TRB(13) "» 

*" 
210 PRINT TRB(13) "*#♦*♦****■***■*»* 
♦*****•**♦»****♦■***•*♦♦**** " 
220 PRINT STRING* (19, 191)" TECLE < 
ENTER) PRRR SRIR "STRING*(19,191 ) } 
230 R*=INKEY*:IF fl*=CHR*(13) THEN 
1390 ELSE Z=VRL(R*) 

240 ON Z GOTO 260 ,430 ,640 ,70 
,1050 ,1170 ,1320 ,1340 
250 GOTO 230 

260 FOR L=K TO 50:CLS:PRINT STRING 
$(64,191) 

270 PRINT TRB(13) "PRRR RETORNRR fl 
MENU DIGITE (999)" 
280 PRINT TRB(IO) "DIGITE ULTIMO 

NOME ";:INPUT CKL) 
290 IF C1(L)="999" THEN K=L:C1(L)= 

GOTO 90 

300 PRINT TRB(IO) "DIGITE PRIMEI 

RO NOME ";:INPUT C2(L) 

310 PRINT TAB (10) "DIGITE TELEFO 

NE "j:INPUT D(L) 

320 PRINT TRB(IO) "DIGITE ENDERE 

CO ";:INPUT RKL) 

330 PRINT TAB (10) "DIGITE A CIDADE 

E ESTADO ";:INPUT A2(L) 



340 PRINT TAB (10) "DIGITE A DATA " 

; : INPUT B(L) 

3S0 IF FRE(X*)(100 THEN 380 

360 FOR T=l TO 250: NEXT T 

370 NEXT L 

380 PRINT: PRINT TAB (10) "SAIDA PRR 

fl RRMRZENRMENTO DE DADOS." 

390 PRINT TAB (10) "TECLE (ENTER) P 

ARR VOLTRR RO MENU" 

400 PRINT TAB (10) "***£ ARMAZENAR 

EM FITA**»"; 

410 INPUT Z 

420 GOTO 90 

430 CLS: PRINT STRING* (64, 191 ) :M=1 

440 PRINT TAB (13) "((( PESOUISANDO 

OS DADOS >>>" 
450 PRINT 
460 PRINT TRB(IO) "DIGITE ULTIMO 

NOME DESEJRDO ";: INPUT C3 
470 FOR L=0 TO K:IF LEFT* ( C3 , 3 ) =LE 
FT*(C1(L),3) THEN 550 
480 NEXT L 
490 IF M=2 THEN 510 

500 PRINT TAB (10)" (ESTE NOME NR 

ENCONTRA-SE NO ARQUIVO) " 

510 PRINT: PRINT TAB( 10) "DIGITE (1) 

PARA VOLTAR AO MENU" 
520 PRINT TAB( 10) "DIGITE (2) PARA 
VERIFICAR OUTRO REGISTRO" ; t INPUT X 
530 IF X=2 THEN 430 
540 GOTO 90 

550 IF M=2 THEN 570 : CLS: PRINT ST 
RING*(64,191) 
560 M=2 

570 PRINT TRB(IO) "NOME "C2(D 
" "CKL) 

580 PRINT TRB(IO) "ENDERECO "RKL) 
590 PRINT TRB(IO) " "R2(D 

600 PRINT TAB (10) "TELEFONE "D(D 
610 PRINT TAB(IO) "DATA "B(D 
620 PRINT 
630 GOTO 480 

640 CLS: PRINT TAB ( 20 ) ;NM*: PRINT ST 
RING* (63, 191) 
650 FOR L=0 TO K 
660 PRINT, CKL),C2(L) 
670 NEXT L 
680 PRINT TAB(IO)" (TECLE ENTER 

PRRR VOLTAR AO MENU) "; 

690 INPUT Z:GOTO 90 

700 CLS: PRINT STRING* (64, 191 ) 

710 PRINT TRB(5) "RLTERRCRO" 

720 PRINT TRB(5) " " 

730 PRINT 

740 PRINT TRB(5> "ULTIMO NOME ";:l 

NPUT C4 

750 PRINT TRB(5) "PRIMEIRO NOME " ; 

: PRINT TflB(5)""j:INPUT C5 



GERA^AO PROL6GICA 



760 FOR L=0 TO K 

770 IF C4=CKD AND C5=C2(L) THEN 

830 

780 NEXT L 

790 CLS: PRINT STRING* (64 ,191 ) sPRIN 

T TAB (10) " ESTE NOME NRO ENCONT 

RR-SE NO RRQUIVO) " 

800 PRINT TAB (10) "DIGITE <1> PRRR 

RETORNRR RO SELETOR" 

810 PRINT TRB(10)"DIGITE (2) PRRR 

RLTERRR OUTRO NOME" ; .'INPUT X 

820 IF X=l THEN 90 ELSE 700 

830 CLS :PRINT STRING* (32, "< " ) j :PRI 

NT STRING*(32,"<") 

SAO PRINT "MOSTRE RRQUIVO" 

850 PRINT "NOME "C2(L>" "C1(L> 

• 

860 PRINT TRB(32) "TELEFONE "D(L 

) 

870 PRINT "ENDERECO "Al (L) ,R2(L) 

880 PRINT "DATA "BCD 

890 PRINT "TECLE < ENTER) SE A INFO 

RMACAO ESTIVER CORRETA" 

900 PRINT "OUTRAS INFORMACOES" 

910 PRINT "ULTIMO NOME << "CUD" 

>>";:INPUT CKL) 
920 PRINT "PRIMEIRO NOME <<"C2(L 
)" >>"; '.INPUT C2(L) 
930 PRINT "ENDERECO << "AKD" >> 
";:INPUT Al(L) 

940 PRINT "CIDADE, ESTADO << "A2(L 
)" ))";UNPUT A2(L) 

950 PRINT "TELEFONE << "D(D" )>" 
;:INPUT D(L):PRINT "DATR (( "B(D 
" >> N ;: INPUT B(L) 
960 FOR T=l TO 250: NEXT T 
970 CLS: PRINT STRING* < 64, 191) :PRIN 
T TAB (10) "MOSTRE RRQUIVO RTURL" 
980 PRINT "NOME "C2(D" "C1(L);:PR 
INT TRB(32) "TELEFONE "D(D 
990 PRINT "ENDERECO "AKD, R2(L) 
1000 PRINT "DRTA "B(D 
1010 PRINT: PRINT TAB (10) "DIGITE < 
1> PRRR RETORNRR RO MENU" 
1020 PRINT TAB(IO) "DIGITE <2> PRR 
A ALTERAR";: INPUT Z 
1030 IF Z=l THEN 90 
1040 GOTO 700 

1050 CLS: PRINT STRING* (64, 92) 
1060 PRINT TAB (10) "DIGITE (999) E 

TECLE (ENTER) PARA RETORNRR RO ME 
NU." 
1070 PRINT TAB (10) " 

OU" 
1080 PRINT TRB(IO) "DIGITE (HI) E 

TECLE (ENTER) PRRR GRAVAR • " 5 : INPU 
T 2 
1090 IF Z=999 THEN 90 



1100 PRINT: PRINT: PRINT TAB(IO) "RR 

MAZENRNDO OS DADOS EM FITA." 

1110 PRINT "ARMAZENANDO-"?NM*:PRIN 

T #-l,NM* 

1120 PRINT #-l,K 

1130 FOR T=0 TO K: PRINT #-l,AKT), 

A2(T),B(T),C1(T),C2(T),D(T) 

1140 NEXT T 

1150 PRINT: PRINT TAB (10) "((( DADO 

S ARMRZENRDOS EM FITR >>)" 

1160 PRINT: PRINT TAB (10) " TECLE 

(ENTER) PARA RETORNAR AO MENU";: IN 

PUT Z:GOTO 90 

1170 CLS: PRINT STRING* (64, 34) 

1180 PRINT TAB(5) "♦♦♦PREPARE A FI 

TA PARA LEITURA" 

1190 PRINT TRB(5) "DIGITE (999) E 

(ENTER) PRRR RETORNRR AO MENU-" 

1200 PRINT TAB (5) " 

OU" 
1210 PRINT TRB(5) "DIGITE (111) E 
(ENTER) PRRR LER OS DRDOS" ;: INPUT 
Z 

1220 IF Z=999 GOTO 90 
1230 ON ERROR GOTO 1400 
1240 PRINT: PRINT TAB (10) "(((-LEND 
0->>>" 

1250 INPUT #-1, NM* : PRINT "LENDO-"; 
NM* 

1260 INPUT #-l,K 

1270 FOR T=0 TO K: INPUT #-1, AKT) 
,A2(T),B(T),C1(T),C2(T),D(T) 
1280 NEXT T 

1290 PRINT TAB(IO)" >>>>> LENDO 

((((( " 

1300 ON ERROR GOTO : PRINT :PRI 
NT: PRINT TAB (10) "DIGITE (ENTER) P 
ARA RETORNAR AO MENU"?:INPUT Z:GQT 
90 
1310 END 

1320 INPUT" MOSTRE ARQUIVO CURTO 
(C) OU LONGO (L)";A:IF A="L" OR fl 
="1" THEN 1330 ELSE PRINT TAB (20); 
NM*:FOR L=0 TO K.: PRINT CKL), C2(L 
), D(L):NEXT:F0RI=1T0 10000:NEXT:G 
OTO 90 

1330 PRINT TRB(20) ;NM*:FOR L=0 TO 
K:PRINT "NOME:"; C2(L);" "; CKL): 
PRINT "TELEFONE:"; D(L):PRINT "END 
ERECO:"; AKD, A2(L):PRINT "DATA: 
"5 B ( L ) : PRINT : PRINT : NEXT : F0RI=1T0 
10000 : NEXT: GOTO 90 

1340 FOR L=0 TO K:N=0:A=STRING*(25 
5,255) :FOR M=0 TO K:IF CKM)(A THE 
N A=CKM):N=M:NEXT ELSE NEXT 
1350 E(D=N:A(D=CKN) :CKN)=STRIN 
G*( 255, 255): NEXT L:FOR L=0 TO K:C1 
(L)=A(L):NEXT:FOR L=0 TO K:A(D=A1 
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<E(L)):NEXT:F0R L=0 TO K:A1(L)=A(L 
): NEXT: FOR L=0 TO K.:R(L)=B(E<L ) ) : N 
EXT: FOR L=0 TO K : B(L) =R( L) : NEXT : FD 
R L=0 TO K:R(L)=R2(E(L) ) :NEXT 
1360 FORL=OTOK : R2 ( L ) =R ( L) : NEXT 
1370 FOR L=0 TO K : R(L) =C2( E ( L) ) : NE 
XT:FOR L=0 TO K:C2(L)=R(L ) :NEXT:FO 
R L=0 TO K.:R(L)=D(E(L) ): NEXT: FOR L 



=0 TO K:D(L)=R(L) :NEXT 

13S0 GOTO 640 

1390 END 

1400 IF ERR/2+l=4 OR ERR/2+l=22 TH 

EN PRINT "-DRDO MRU GRRVRDO NO RRQU 

IVO-" : RESUME 1170 ELSE ON ERROR GO 

TO 



ALTA RESOLUgAO 



Este programa e dcstinado aos iiuc- 
rcssados cm construir graficos para cli- 
versas funcoes trigonometricas. De fa- 
cil operacao, voce podera acompanhar 
a exccucao dos graficos no video, ou 
alicrando o comando FAST por 
SLOW, na linha 80, ou tcclando SPA- 
CE. Para voltar a exccucao, tcclc 
CONT scguido de ENTER. 

Toda instrucao em alia resolucao 
devera ser precedida do comando 
REM, seguido de £ (libra), mais o co- 
mando descjado. 

As principals linhas do Basic am- 



GRAFICOS 



pliado, utilizado para opcrar o CP 200 
AR, sao: PAGE (dctermina a pagina), 
HRG (comando que liga a alia resolu- 
cao), HCLS (comando para limpar a 
tela), HPLOT (comando que liga o 
ponio da tela). 



CP 200-16 Kb RAM 



10 ' **************************** 

20 '* GRRFICD * 

30 '* , RLTR RESOLUCRO * 

40 '* CP-COMPUTRDORES PESSORIS * 

50 '* CP-200S fl.R. * 

AG ' * " " " " " " " "H E L I " " " " " " " " " * 

70 ' **************************** 

30 FRST 

90 REM fPRGE 24000 

100 REM LHRG 

110 REM 1HCLS 

120 DIM fl(32) 

130 LET R=70*3- 14159/130 

140 LET S=SIN (A) 

150 LET C=C0S (R) 

160 FOR I=-4*64 TO 

170 LET MRX=-100 

ISO LET MIN=100 

190 LET X=I/64 

200 LET X1=INT (30*X+.5) 

210 LET NL=INT ( SQR (16-X*X)*3) 

220 FOR K=-NL TO -1 

230 LET Y=K/S 

240 LET R=1.25*SQR (X*X+Y*Y> 

250 LET Z=1.75* (COS ( R ) + • 4*C0S ( 3* 

R ) ) + . 25 

260 LET 



270 
230 
290 
300 



A ( -K ) =Z 
GOSUB 350 
NEXT K 

FOR K=l TO NL 
LET 2=R(K) 



310 


LET Y=K/S 


320 


GOSUB S50 


330 


NEXT K 


340 


NEXT I 


350 


LET Y=INT <30*(C*Y+S*Z) )+-5 


360 


IF Y>MIN THEN GOTO 400 


370 


LET MIN=Y 


330 


REM £HPL0T123-X1,96+Y 


390 


REM tHPL0T12S+Xl,96+Y 


400 


IF Y<MAX THEN RETURN 


410 


LET MAX=Y 


420 


REM £HPL0T123-X1,96+Y 


430 


REM tHPL0T123+Xl,96+Y 


440 


RETURN 
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PROGRAMAS PUBLICADOS EM 




1. DESENHANDO NA TELA, CP 200-16 Kb RAM: 
pcrmite a execucao de varios desenhos a partir de va- 
lores numericos variavcis de a 15 (GP 10). 

2. DESAFIO, CP 300/CP 500-48 Kb RAM: jogo de 
acao. Com urn canhao antineutron voce lera que des- 
truir a base inimiga com 25 tiros (GP 10). 

Q MATEMATICA, CP 400 Color-16 Kb RAM: progra- 
ma educacional que pcrmiic testar sua capacidade cm 
matematica atraves da resolucao dc 12 exercicios 
(GP 10). 

4. CRIANDO GRAFICOS RAPIDOS, CP 300/CP 
500-48 Kb RAM: cslc programa cria strings de "gra- 
ficos rapidos" no sen micro, bastando para isso que 
voce desloque o cursor atraves das teclas dc setas 
(GP 10). 

5. DECIMAL PARA BINARIO, CP 300/CP 500-48 Kb 
RAM: dois programas educacionais que convcrtem nti- 
meros decimals em ntimcros binaries e vice-versa 
(GP 10). 

6. INVASORF.S ESPACIAIS, CP 200-16 Kb RAM: jo- 
go de acao, onde alienigenas implacaveis invadem o 
seu microcomputador e, e claro, voce tcra dc elimina- 
los (GP 10). 

7. PROGRAMA DO USUARIO, CP 200-16 Kb RAM: 
programa educacional de matematica; permite o cal- 
culo do comprimento de um arco numa circunferen- 
cia qualquer (GP 10). 



G 
S 



RECUPERACAO DE DISCOS, CP 400 Color-16 e 
64 Kb RAM: aplicativo que possibilita a rccuperacao 
de disquetes danificados (GP 1 1). 

VAMOS APRENDFR MATEMATICA?. CP 400-16 
Kb RAM: programa educativo para criancas que es- 
tao iniciando o aprendi/ado em numcros (GP 11). 

COMO ESTA SUA COORDENACAO MOTORA?. 

CP 400-16 Kb RAM: nessc jogo voce tera de provar 
sua agilidade motora, alcancando, no menor tempo 
possivel, pontos especificos (GP 11). 

VAMOS DEMOCRATIZAR O SEU CP?, CP 200 16 

Kb RAM: programa de controle de estoque, que pos- 
sibilita o rcgistro de mais de 10 itens (GP 11). 



12. TESTE SUA CAPACIDADE LOGICA E MATEMA- 
TICA, CP 200-16 Kb RAM: programa educacional que 
permite a resolucao de cquacoes do 1" gran (GP 1 1). 



/(l^MINICALC-PLANILHA ELETRONICA, CP 400 

^""^ Color-16 Kb RAM: este programa e um modclo sim- 
plificado de planilhas nnmdialmente conhecidas como 
Visicalc e outras (GP 12). 

M4JAGENDA COLOR, CP 400 Color-64 Kb RAM: este 
programa transforma seu computador pessoal em uma 
eficiente c agil agenda, com possibilidades de ate 99 
nomes (GP 12). 

15. AKERNAAK, UM DESAFIO A SUA INTELIGEN- 
CIA E IMAGINACAO, CP 300/CP 500-48 Kb RAM: 
um jogo de misterios e situacoes fantasticas que voce 
mesmo devera construir, a partir dc dados armazena- 
dos em seu computador (GP 13). 

(f^V'ONTROLE BANCARIO, CP 400 Color-16 Kb ou 

^-^ 64 Kb RAM: o software ideal para voce csquecer os 

problemas com sua movimentacaobancaria (GP 13). 

17. ATERRISSAGEM LUNAR, CP 200-16 Kb RAM: jo- 
go dc aciio onde voce seni um astronauta que devera 
desccr na Lua (GP 13 e 14). 

18. PROCESSADOR DE PALAVRAS, CP 300/CP 
500-16 Kb RAM: programa aplicativo, versao fita cas- 
sete, que transforma seu computador pessoal em um 
eficiente editor de tcxtos (GP 14). 

ny LISTAGEM RAPIDA, CP 400 Color-16 Kb RAM: 
utilitario que permite ao CP 400 dispor de recursos pa- 
ra uma listagem super-rapida (GP 14). 

fio) 80 Kb PARA O CP 400 COLOR: programa utilitario 
^-^ para voce aumentar a memoria disponivel de seu com- 
putador (GP 14). 

21 . TRINOMIO DO 2? GRAU, CP 200-16 Kb RAM: pro- 
grama educacional (GP 14 c 15). 



77 



® 



CALENDARIO PERSONALIZADO, CP 300/CP 
500-4S Kb RAM: permite a claboracao de calendarios 
personalizados com possibilidades de varias esteticas 
diferentes (GP 15). 

TRANSFORME SEU CP 400 COLOR NUM CHAR- 
MOSO PROFESSOR DE FRANCES, CP 400 Color- 
16 Kb RAM: tres programas educacionais que permi- 
tem o aprendizado da lingua francesa. O primeiro pro- 
grama e baseado no jogo da Forca; o segundo, na con- 
jugacao dc verbos, e o tcrceiro, no aprendizado de pa- 
lavras atraves de antonimos (GP 15). 
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